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LOCATING FORTH WORDS • BY GENE THOMAS 

8 

One of the strong points of a computer is that it will perform boring and repetitious tasks without complaint. Given a 
range of screens followed by a string, this utility will search those screens for that string. The designated string can be 
a single word, a phrase, even a substring. Similar to F83's view. 



ACCESS TO dBASE FILES • BY JOHN E. TARIN 
10 

This article presents a generalized method to access data stored in dB ASE files. The words constituting the mechanism 
may be used to fetch data from more than one dBASE file during a session. Forth is more straightforward, is easier to 
write and debug, and the completed code executes much faster than dB ASE's built-in functions. 



IMPROVED STRING HANDLING • BY MIKE ELOLA 

15 

String-handling was treated like the ugly duckling when early Forth models were created, and it can still stand improve- 
ment. Through better factoring, enhancements should result in a kernel at least as compact as existing Forth kernels, 
(¥) and with a tight design that will naturally lead to a compact, discrete, and fully functional set of string operators. 
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HEADERLESS LOCAL VARIABLES & CONSTANTS 
BY JOHN P. DAUGHERTY 
19 

An application under design is large, and dictionary space is at a premium. Stripping the headers off local variables and 
constants would save space. But real headerless local variables and constants should execute the same as their standard 
($) counterparts, and both local and global versions will be used. Here's how! 
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HAVE YOUR ASSEMBLER... • BY DARRYL C. OLIVIER 

22 

...and eat it, too. It is very simple to use the assembler at compile time but to eliminate it from the compiled program. 
The assembler definition is independent of its defining word! 



ANS FORTH MEETING NOTES • BY RAY DUNCAN 

24 

The third meeting of the ANS Forth Technical Committee was promising, with nearly thirty proposals voted on and 
decisions reached on thorny issues like floored division. 



THE BEST OF GENIE • BY GARY SMITH 
27 

This is the first "Best of GEnie" column, intended to provide a sampler of recent activity from the Forth RoundTable 
on GE's large (and still growing) network. Log-on soon to see the complete selection of software libraries, topics of 
discussion, and real-time dialog with other Forth users. 
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EDITORIAL 



About those standards: I don't really 
understand how a new language standard 
arises out of "common usage." I suppose 
common, as it is used here, means both 
unremarkable and general, so we are all 
safe. But if so, that means everyone on the 
ANS Forth Technical Committee could be 
surprised in a big way if one or two of the 
larger dialect communities — who may 
even be more common than the rest of us — 
organized to show that their users mean 
business, too. 

Changes to Forth will appear in the next 
standard through the agencies of the hu- 
mans involved. Those who think an ANS 
stamp will help their business or career owe 
it to themselves to get one. Those who fear 
the consequences of the ANS standardiza- 
tion effort — which will, after all, go on 
without them — should get involved if only 
to ensure that their views are taken into 
account. Which is reason enough to print in 
this issue the pages needed to submit tech- 
nical proposals to the ANS Forth team. 

Name your favorite Forth reference 
works: I'd be among the first to rejoice if 
the last word in Forth standards could be 
uttered. How nice it would be to have one 
dialect, indivisible. It is, understandably, 
quite a challenge to keep track of the words 
allowed by the three fundamental dialects, 
plus the additional words in (or derived 
from) MVP, LMl, poly, MMS, F83, and 
others. 

My position is that it's better to publish 
a reasonably broad range of material than 
to restrict our published content to an 
easily filtered, standard dialect. And I do 
not believe that code blindly typed in, 
even if it runs, contributes much to the 
expertise of the typist. The people I've met 
who succeed in Forth careers Jiave been 
conversant with (or, at least, calm in the 
face of) a variety of dialects. Because, for 



better or worse, that's the way of the 
working world. 

A reader laments in this issue about the 
undefined-word problem (an undefined, 
non-standard word, or assembler of the 
wrong flavor, cropping up in source 
screens). Our authors should all know that 
no one wants undefined words in his 
source code. Words that don't adhere to a 
standard dialect need to be defined. Rou- 
tines containing assembler code should be 
documented in high-level Forth as well as 
in English. I think the solution is to con- 
tinue doing our best, and to help readers 
educate them selves about the Forth imple- 
mentations they encounter. 

We can, however, do a better job of 
guiding people with questions to the best 
sources of answers. Send me a list of the 
reference works you use to look up Forth 
definitions, techniques, etc. 1 will organ- 
ize the responses into a "Recommended 
Reference Library" for Forth program- 
mers and see that it gets placed where it 
will do the most good. 

A friendly reminder: This magazine is 
by and for its readers. We're interested in 
your latest project, the trick you used to 
complete an application, your experiences 
with Forth (especially on today's ma- 
chines), programming techniques, and, 
yes, FD is looking for a few good rou- 
tines.... In other words, just about every one 
of you has something to contribute to these 
pages. If you haven't noticed, the excellent 
Bibliography of Forth References shows 
that you would be in good company. If 
you're a new author, send me your name 
and address to get on the list to receive our 
soon-to-be-revised writers' guidelines. 
(But the bottom line is: start writing!) 

— Marlin Ouverson 
Editor 
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LETTERS 



Search Party 

Dear FIG: 

I was pleased to see the response by Mr. 
Martin Guy (FD IX/4) to my letters and 
"search" code of several months earlier. 
When 1 submitted my code, I hoped just 
such a response would be generated. 

I am glad my efforts have been helpful, 
and 1 appreciate the improvements he has 
suggested. I accept his critique regarding 
BEGIN ... UNTIL and BEGIN ... WHILE ... 
REPEAT, fully understanding why only 
after carefully thinking it through . His code 
is visibly dearer and more to the point. I es- 
pecially like Mr. Guy's use of the anony- 
mous variable to hold the normalized initial 
string character, thereby saving repeated 
testing and converting. 

However, I have one re-improvement to 
re-place into his version. 

One feature of my solution was thati did 
not have to reload the initial string charac- 
ter after every comparison for a match, I 
only reloaded (and gratuitously retested/ 
converted) in the event that there had been 
a match on the first character, with a subse- 
quent failure to match on the entire string. 

To reimplement this feature, simply 
move the 4 ROLL #) AH MOV instruction, 
which presently begins the WHILE portion 
of the outer loop, to the line between the 
two THEN directives, changing 4 ROLL to 
6 ROLL in the process; and add AH al 
XCHG immediately before the BEGIN of 
the outer loop. By doing so, we add only 
two bytes to the code size for the xchg 
instruction, but we gain (according to my 
timing information) ten clocks each time 
there is no match on the first character of the 
string. Intuitively, I would expect that, even 
when searching for the letter 'e' (the most 
common letter in the English language). 



there would be more failures to match than 
there would be matches. Fora buffer of IK, 
this savings could easily approach 8000 - 
9000 clocks or more during a search of the 
full buffer. Real savings. 
Sincerely, 

Robert Lee Hof fpauer 
609 W. Arapaho Road 
Richardson, Texas 75080 

Fractals, Windows, and 64K 
Dear Sir, 

Further to my previous letter, it seems I 
always write for help too soon, and then ask 
all the wrong questions! Please accept my 
apologies for even suggesting there may be 
some typographical errors in the code 
published for "Fractal Landscapes" — I 
found out what +- is supposed to do from 
a copy of the fig-FORTH installation 
manual's glossary, and the result was just 
what Phil Koopman, Jr. intended. Terrific 
stuff! 

The fact, however, that F83 limits code 
space to 64K meant that it was necessary to 
set the graphics array up in virtual memory 
on disk, and run the whole process from my 
RAMdisk. 

This is OK, it works well — I set up a 
small array of colour codes to change the 
order in which the colours are accessed, 
which gives a more pleasing display, but 
it's still too slow. The question 1 should 
have asked is how to access all that beauti- 
ful memory from F83? Perhaps someone 
could steer me in the right direction here? 

In addition, I have been experimenting 
with F83's multi-tasker with limited suc- 
cess. I note that Dr. Ting, in \ns Inside F83, 
suggests that "...windows are built tliis 
way." I wonder if an article in ForlhDimen- 
sions elaborating on this theme might be of 



interest to those of us who are still strug- 
gling with Forth? It would certainly be 
appreciated by me! 
Yours faithfully, 
David J. Dartnall 
20 Eldon Street 
Dianella6062 
Perth, Western Australia 

Thanks for writing, David. Your shifting 
areas of confusion seem to be following a 
pattern familiar to many self-taught Forth 
programmers. One of the best places to 
look for the definitions of unfamiliar words 
is Glen B. Haydon's All About Forth. Ah, 
windows...! agree with your assessment of 
their interest to most of us — off-the-cuff, 
I'd say the code and documentation you 
want is in Volume Two of Dr. Dobb's 
Toolbook of Forth,- but I'd like to see an 
article that addresses the technique. As to 
those 64K blues: it gets tricky, and maybe 
it' s best to talk to some of the folks at your 
local FIG chapter. (All right, I know Mel- 
bourne and Sydney aren't local to you, but 
I'll bet they can put you in touch with 
someone closer...) You could develop a 
memory manager that uses far calls in- 
stead of jumps, and then add 32-bit ad- 
dressing; or you could work around it by 
keeping your program within the 64K 
limit, but putting Forth libraries and data 
out into different 64K segments. (The latter 
approach is used to good end in LIB- 
FORTII, a four-diskette setfromMountain 
View Press.) Good luck! 

Open Letter 

to Standards Committee 

This letter is in response to a request I, 
as chairman of the Boston chapter of the 
Forth Interest Group, received from a 
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member of the ANS Forth standards com- 
mittee [X3J14] for input into the standards 
process. This is not a new subject for our 
group. Over the past year-and-a-half, we 
have discussed it at length at least three 
times, as well as following on-going devel- 
opments. Our chapter represents a cross- 
section of New England's Forth commu- 
nity. Meetings normally include several 
consultants, several Forth companies, ven- 
dors, and even a few hobbyists! 

This request spurred me to bring the 
matter up at our next meeting. The opinions 
presented in this discussion basically fell 
into two camps. One felt we should not get 
involved, in hopes that nothing would ever 
come of it. The second group felt we should 
get involved, in the hope that we could 
prevent too much damage. All who partici- 
pated in the discussion seemed to regard a 
new standard as a Pandora's Box that 
shouldn't be opened. 

In addition, the discussion touched on 
what should or shouldn ' t be in the standard. 
In this small, friendly group, we could not 
reach any concensus as to what should be 
included, to say nothing about the details of 
how it should work (that's easy — it should 
work like my system). 

At this time, there doesn't seem to be 
any grass-roots support for a standards 
effort. I regard this as a major crisis which 
the committee should address immedi- 
ately. The Forth community needs to be 
convinced that their opinions will be lis- 
tened to; that the resulting standard will not 
invalidate their systems; that arbitrary and 
unnecessary changes will not be made; and 
that the results will reflect "common us- 
age" and will not try to "improve" the 
language. 

If we are hoping to generate a standard 
which the Forth community will acceptand 
appreciate, we must first bend over back- 
wards to convince that community that we 
are working for it. It is not good enough to 
invite input, we must go out and seek it. To 
determine what is "common usage," we 
must talk to the "common users," not the 
vendors. We must not ask for input on non- 
existent forms, but instead circulate ques- 
tionnaires to users. It is not good enough to 
open meetings to the public, key members 
of the committee should also visit local 
chapter meetings on a regular basis. 

The alternative is to promulgate another 
divisive "standard" which only serves to 
fragment our community. The end result of 



this will be reflected in more resistance 

from companies when we suggest using 

Forth. The ANSI rubber stamp isn't worth 

the cost at this price! 

Gary Chanson 

360 Waltham Street 

W. Newton, Massachusetts 02165 

Code for Local Variables 
Dear Editor, 

The local variables in the article by Peter 
Ross (FD IX/4) suffer from a major defect: 
they cannot be called recursively. The use 
of recursive calls is one of the major reasons 
for having local variables. The letter by 
Henning Hansen (FD IX/5) certainly cures 
that and gives an altogether better approach 
to local variables. Mr. Hansen suggested 
that his procedure could be made into an 
assembly language procedure to speed it 
up. The enclosed code does just that; for 
LMI's PC/Forth, at least. I have renamed 
Mr. Hansen's (LOCAL) procedure to RE- 
STORE, since that is what it does: restore 
the value of the variable. I have also modi- 
fied it so that it can be used either with 
variables or with quantities (a data type that 
fetches its value like a constant when in- 
voked, but which can have that value 
changed; this type is not favored by the 
Forth establishment, but it has certainly 
made my programming easier). This 
changes Mr. Hansen's syntax so that the 
LOCAL declaration precedes the name of 
the variable or quantity. 

The user who prefers Mr. Hansen's 
syntax may simply omit LOCAL, rename 
local as LOCAL, and use it directly. The 



compiled code is almost the same, and the 
execution speed using a VARIABLE is in- 
distinguishable, although still slower than 
using a QUANT I T Y, as seen in the timings 
below. 

In Mr. Hansen's procedure, the speed 
penally of using recursion with local vari- 
ables was a factor of approximately 6: 1 on 
my system (because on the 80296, the 
multiplication is vastly speeded up, which 
helps the faster, non-recursive procedure 
proportionately more). While using the 
assembly language version, the penalty is 
a factor of less than four, and even less 
using a QUANTITY. In fact, the timings 
for the three tests were 9.23 seconds for 
10000 iterations of 12 N!, 8.40 with nl, 
and 2.42 for M! on the accompanying 
screens. 
Sincerely, 
Michael Barr 
146 Dobie Avenue 
Mount Royal, Quebec 
Canada H3P 1S4 

And NEXT, 

in No Time at All 

Dear Marlin, 

I am glad that Carl A. Wenrich profited 
from the tutorial on the NEXT function in 
All About Forth. Lest he be satisfied with 
his faster NEXT loop (FD IX/6), he should 
know that our latest NEXT in the WISC 
CPU/32 takes zero time. This is, perhaps, 
the ultimate in speed. 
Sincerely yours. 
Glen B. Haydon, M.D. 
La Honda, California 94020 



Screen # 117 

\ local variables 12:50 03/05/88 

ASM 

CODE restore BX, CBP] MOV AX, 2 CBP] MOV 

CBX], AX MOV BP, # 4 ADD 

NEXT, END-CODE 
: RESTORE restore ; 

CODE local BX POP CX, CBX] MOV -2 CBP], CX MOV 

-4 [BP], BX MOV WORD -6 CBP], # ' RESTORE >BODY MOV 
BP, #6 SUB NEXT, END-CODE 
: LOCAL ' >BODY C COMPILE] LITERAL COMPILE local ; IMMEDIATE 

— > 



Screen # 118 

\ test local variables 12:59 03/12/88 

13 LOAD \ timer module 

VARIABLE VAR QUANTITY QUAN 
: N! LOCAL VAR 

DUP VAR ! 0= IF 1 ELSE VAR @ 1- RECURSE VAR @ * THEN ; 
: n! LOCAL QUAN 

DUP >> QUAN 0= IF 1 ELSE QUAN 1- RECURSE QUAN * THEN ; 
-. T 'TIMER lOOOO O DO 12 N! DROP LOOP -TIMER ; 
: t ! TIMER 10000 O DO 12 n! DROP LOOP .TIMER ; 

s M! DUP 1 < IF DROP 1 ELSE 1+ 1 SWAP OVER DO I « LOOP THEN ; 
; Tl ! TIMER 10000 DO 12 M! DROP LOOP .TIMER ; 
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TAKE-OUT FORTH 



THE DSC-12: 
2 Mhz R65F12 CPU 
Laser trim D/A 

Fast A/D with built-in track and hold 

Rechargeable battery back-up 

RS-232, RS-422, RS-485 

Super real time clock 

Signals amplifiers 

40 I/O with timer and interrupt logic 

High density board 7.5" X 5" 

Expansion edge connector 

On board Eprom, EErom programming 



Full screen editor, interactive window 
Assembler / Deassembler 
Resident FORTH including words: 
A/D@, CLOCK@, ?KEY, etc... 
Full documentation (300 pages) 
Program library on disk 

$499.00 

Special introductory offer includes: 

intelligent LCD display 

20 keys Keyboard with encoder 





VISA, MC, OEM welcome 514-878-2802 
6899 Irwin, Suite 5, Montreal, Qc, Canada H4E 4L2 
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TI-FORTH, Forth-79 

LOCATING 

FORTH WORDS 

GENE THOMAS - LITTLE ROCK, ARKANSAS 



I've stoppcxi hunting through disks, 
screen by screen, for a word I haven't 
looked for in a long time. Now I let the 
machine do the work. One of the strong 
points of a computer is that it will perform 
boring and repetitious tasks all day long 
without complaint. 

Give SHOWME a range of screens fol- 
lowed by a siring, and it will search those 
screens for that string. The designated 
string can be a single word or a phrase. 
Because you set the string delimiter with a 
<cr>, it can even be a substring. 

Let's assume this code is on a screen in 
the specified search range: 

: SATISFY 

KOOL-AID @ COLD MAKE 
DOWN GULP ; IMMEDIATE 

All of the following will work: 

lo hi SHOWME COLD <cr> 

lo hi SHOWME DOWN GULP <cr> 

lo hi SHOWME KOOL<cr> 

Of course, searching for a string rather 
than a discrete word has its down side. 
SHOWME may, at times, find a matching 
string that is not what you intended. For 
example, suppose you designated the string 
COLD for the search. And further, suppose 
that on the screen preceding the one on 
which COLD appears is the word COLDER. 
That's a minor problem which I think is 
subordinated by the convenience of being 
able to designate any string. "False finds" 
can be avoided by adding spaces to the be- 
ginning and end of a string that is a discrete 
word, because the spaces become a re- 
quired part of the match. 

Listing one contains the Forth code for 



the SHOWME utility. I believe that most of 
the code is pretty straightforward, so in- 
depth comments will be limited to S E ARCH 
and MATCH?. The code was developed in 
TI-FORTH, but it is conventional fig- 
FORTH and, therefore, very portable. For 
those who are operating with Forth-79 or 
Forth-83 , here are some tips on conversion. 
(Actually, very few changes will be neces- 
sary.) 

1. If your WORD leaves an address on the 
stack, then add DROP as the last word in 
the definition of STRING. 

2. Nearly all Forths have the word where. 



If yours doesn't, then define DISP- 
SCRN as : DISP-SCRN DROP 
PAGE DUP . " Screen #" . LIST 
QUIT ; 

3 . If you don ' t have the user variable CUR- 
POS, or another variable which holds 
the cursor position to substitute, then 
define the word POSIT (position) as : 

POSIT CR ." Searching 
screen #" . ; 

The only two definitions of any real 
complexity are MATCH? and SEARCH. 
SEARCH loops through the specified 





SHOWME Locating Utility 




L j ::- L 


1 ng 1 




Begi 


nriing scr #33 




. 


\ SCR #1: EiHOWME Gene Thomas 


, Oct 85 


t . 


: DIHP-SCRN \ srr# IN — idiHpldy BcrEen contalninq =;tr"ing 




2+ SWAP DUP PAGE ■. " Scr #" . WHERE ; 






; NOT-FOUND — 




4. 


CR STRADR TvPE ." Not found." QUIT ; 






: POSIT '■: !;cr*t — Isomething to look st while waiting 




6 , 


CURPOS e SWAP ." Searching scr « " . CURPGS > ; 




8. 


: MATCH"' \ adrl adr2 cnt — f Itrue it strings at adr's 


match 


9 . 


SWAP DO DROP drop dummy -flag list time thrt 


':;^ero) 


10. 


0','ER I + Ci« OVER I + OH 




11. 


IF FALSE LEAVE \ non-matchi 


nq char 


12. 


ELSE TRUE \ char matches 


13. 


THEN 




la. 
IS. 


LOOP ;R DROP DROP R> ; \ drop adrl 


S; adr 2 


16. 


■ SCR #2: SHOWME bT 


, Octas 


17. 


: ASCII"' \ bIoc;l~adr loop-indeM Icihar'ttl on linettO printable? 


18. 


DUP C@ DUP 3) ;■ SWAP 127 < AND IF B'BUF ELSE FALSE 


THEN ; 


1 P . 


: SEARCH sr.r-hi + 1 scr-lo — ^search thru screens for ; 


tri ng 


20 . 


CR 




21. 


DO I BLOCK DUP I POSIT \ loop thru 


screens 




ASCII"' DO DUP \ loop thi-u 


b 1 oc k 




I + STRADR MATCH" 




24. 


IF ' !;tring foundi DROP J I DISP-SCRN 


THEN 




LOOP DROP ( block adr) 






LOOP I string) NOT-FOUND ; 






: SHOWME ' scr-lo scr-hi — scr-hi+1 scr-lo Itale? folic 


wing 


'■'ft 


STRING \ string 






1+ SWAP SEARCH ; 




3) . 


;S ErJD 


SHOWME 
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screens via the word BLOCK which leaves 
the address of the disk buffer where the 
screen resides. In s E ARCH 's inner loop, the 
screen address (I +) and the address and 
character count of the string to be matched 
(STRADR) are fed to MATCH?. Any string 
whose first character is a non-printable 
ASCII value will be skipped. The buffer 
(screen) is looped through in the inner loop, 
unless the first word ASCI I ? feeds to the 
inner loop either 1 2 4 (b / BUF) or zero. If 
the string match is found, then the screen 
number and offset into the screen are fed to 
DISP-SCRN, otherwise the outer loop 
brings up the next BLOCK. 

As noted above, match? receives the 
address within the BLOCK to begin search- 
ing, the starting address of the search string, 
and its character count. MATCH ? then loops 
through the count, comparing the corre- 
sponding ASCII numbers in each byte. By 
subtracting one ASCII value from the 
other, it determines a match by the resulting 
zero. Because IF executes on non-zero 
numbers, a true flag will be left by ELSE as 
long as character matches occur. At the first 
non-matching instance, if there is one, a 
non-zero flag is left for IF and the loop is 
exited via LEAVE. (Why don't all of these 
flags pile up on the stack as matching char- 
acters are found? The answer is the expla- 
nation for the "dummy" flag preceding 
SWAP. Each iteration of the loop performs 
the DROP following DO. The dummy flag 
provides something to drop the first time 
through.) After the looping is finished, via 
LEAVE or by exhaustion, the two remain- 
ing addresses are dropped, leaving only the 
resulting true or false flag. 

Returning now to SEARCH, the flag left 
by MATCH? is acted on by the if in the 
inner loop. A true flag invokes DISP- 
SCRN. A false flag causes the loop to iter- 
ate. If the inner loop exhausts itself with all 
repetitions of the outer loop, then the "not 
found" message will be displayed. 

The three non-standard words in the 
listing are CONSTANT FALSE, -1 
CONSTANT TRUE, and PAGE. PAGE is 
my word for clearing the screen and hom- 
ing the cursor. 



Gene Thomas edits the Comment 
Line, the newsletter of the Central Ar- 
kansas FIG Chapter, and is a registered 
polysomnographic technologist at the 
Sleep Disorders Center at the University 
of Arkansas for Medical Sciences. 



FUTURE 

announces 
Eight new products based on the NC4016 

Future Series products: 

CPU board (available 2nd quarter 1988) 

• NC4016 (5 MHz standard) 

• Stack and data RAM 

• Full 128Kbytes of paged main memory 

• Power fail detect 

• Automatic switching to on board battery backup at power fail 

• Psuedo-serial port - full compatibility with CM-FORTH and SC-FORTH 

• 16Kbytes of EPROM (SC-FORTH, SC-C and CM-FORTH available) 

Display/Debugger board (available 2nd quarter 1988) 

useful for testing and debugging custom hardware 

• Provides hexadecimal display of the data, address, and B-port 

• Indicates status of reset, interupt, WEB, WED, and X-port 

• Provides for free running and single step clocking 

• Provides the ability to independently drive (write to) the data, address, and 

B-port directly with user data 

I/O board (available 2nd quarter 1988) 

for serial communication, interupt handling, event timing, time and date 
logging and saving system state parameters 

• Two RS232 serial ports 

• Eight level prioritized interupt controller. Each interupt line is individually 

maskable and resetable. Current pending interupt status is readable. 

• Real time clock with 2K of non-volatile RAM 

• Three 16-bit timer/counters 

Extended Memory board (available 3rd quarter 1988) 

• Paged memory — 64 Kbytes segments, up to eight segments 

Card Cage & Power Supply (available 3rd quarter 1988) 

• Rack mountable card cage with face plates for each slot 

• ±5 volts and ±12 volts supplied 

• 72 Pin backplane 

Disk Drive Controller board (available 3rd quarter 1988) 

• 3-1/2 inch floppy and SCSI controllers (for hard disks) 

Video board (available 4th quarter 1988) 

• Will drive Apple Macintosh II high resolution (640 x 480) monochrome 

monitor and PC compatible monochrome monitors 

A/D & D/A board (available 4th quarter 1988) 

• 12 bit, 1 MHz A/D & D/A converters 

Future, Inc. P.O. Box 10386 Blacksburg, VA 24062-0386 

(703)552- 1347 

Apple is a registered tiademaik of Apple Convputct, Inc. Macintosh is a txadcmaik of Apple Computer, Inc. 
SC-FORTH and SC-C are products of Silicon Composers. 
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Forth-83 

ACCESS TO 

dBASE FILES 



JOHN E. TARIN - ROSSLYN, VIRGINIA 



his article presents a generalized 
method to access data stored in dBASE 
files. (For those not familiar with the file 
formats of the popular dBASE series of 
data base and file management programs, 
see File Formats for Popular Software by 
Jeff Waldcn, Wiley Press, 1986; and the 
dBASE manual.) The mechanism retrieves 
information about any dBASE file from the 
header bytes of the file, and uses this infor- 
mation to locate data in the fields of each 
record. The words constituting the mecha- 
nism may be used to fetch data from more 
than one dBASE file during a session. 

I wrote this program-fragment because 
I had to perform an analysis of the data 
stored in several dBASE files. Although 
dBASE provides an access-and-manipula- 
tion language. Forth is more straightfor- 
ward, is easier to write and debug, and the 
completed code executes much faster. 

The code presented here is written in 
LMI's PC/Forth+ (a 32-bit implementa- 
tion). This Forth version was used only 
because the data files in question contain 
financial data, and the calculated values 
exceed the range of 16-bit integers. This 
choice eliminated the need to generate a 
numeric manager. 

The procedure to read a dBASE file 
involves setting the filename, CREATEing 
a sufficiently large buffer (the number of 
bytes in the dBASE file can be used as a 
guide), and using the word prepare to 
read the file header information and data 
into the buffer. The word PREPARE takes 
as input a file's "hand]e_parms" and the 
target buffer address. 

If the dBASE file is too large to be read 
completely, or if the user does-not wish to 
read all records at once, the words READY 



Table One: 

File Access Words 

READY 

Reads the header bytes plus a non-data byte preceding the first record. 
READ . DATA 

Reads* all the data from the specified file into the buffer specified with ready. 
READ . REC 

Reads* the contents of one record at each read. This word is useful should the file be 
too large to read at once, or should the user wish to read records singly. 

*Note: A modified read function may be needed to bypass the DOS limit of 32K. In 
Forth versions with the updated READ function, a modified function is not needed. 

PREPARE 

This word combines the functions of ready and read . data to provide simple input 
of an entire file, including header information. 

SKIP.HDR 

Used after a file rewind (i.e., SEEK-ABS) to position the next read at the first data 
record. 

SKIP .RECS 

Used to locate the nth file record. (This word uses SEEK-REL.) 

File Description Words 

REC . CT 

Number of records in the dBASE file. (Range is zero to REC . CT - 1 .) 
HDR.LEN 

Number of bytes in each record. 
REC . LEN 

Number of bytes in the dBASE header. 
#FLDS 

Number (calculated) of data fields in each record. (Range is 1 to #FLDS.) 
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and READ . REC may be used to read the 
header information and any individual rec- 
ord. (In this case, the minimum buffer size 
will depend on the record size and the size 
of the header.) The word ready takes as 
input the file's "handle_parms" and the 
target buffer address, and reads the file's 
header bytes into the specified buffer. 

The word read . REC takes the file's 
"handle_parms" and an index, i, as input 
and reads the next available record into the 
ith record space of the same buffer speci- 
fied for READY. With read . REC alone, 
the user can read each record individually. 
If the user wishes to read a specific record, 
the word SKIP . RECS can be used to skip 
to the nth record in the file. 

When a file's header information and 
records have been read, file-descriptive 
data in the header can be retrieved using 
one or more of a set of utility words. For 
example, record count, record length, field 
names, and field types can be retrieved 
using the words REC.CT, REC.LEN, 
FIELD. NAME, and FIELD. TYPE, re- 
spectively. In addition, calculated values 
such as the number of fields and field off- 
sets within a record can be retrieved using 
the words #FLDS and FIELD .OFFSET. 
Once data from a file have been read and/or 
manipulated, the words in the package can 
be reused to read and access data from any 
other dBASE file. 

Once data have been read, the user can 
switch attention between the data sets by 
resetting the address stored in HDR . ADDR. 
The word HDR . addr performs a function 
similar to an execution vector. You set it to 
the address of a buffer containing a dBASE 
header and data, and thereafter all access 
words will function for the file described by 
that buffer. 

Table One is a partial glossary of access 
words. Tabic Two is a listing of the dBASE 
access fragment. Table Three is a listing of 
code using the fragment words to read and 
combine data from two dBASE files. 
Tables Four-a and Four-b show the struc- 
tures of the two demonstration files, using 
the dBASE command "LIST STRUC- 
TURE." 

(Tables Two and Three follow.) 



Buffer Definition Words 

HDR. ADDR 

Variable used to store the address of the currently used input buffer. May be 
changed at will to provide access to the contents of any buffer filled using 
READY and READ . DATA. 

DATA. ADDR 

Returns the address of the first data byte in the currently used input buffer. 

Field Description Words 

FIELD .NAME 

Returns the address of the string containing the nth field name (10 bytes). 
FIELD . LEN 

Returns the length of the nth field. 
FIELD. OFFSET 

Returns the word address of the calculated offset for the nth field. 

dREC 

Returns the address of the beginning of the nth data record. 
dFIELD 

Returns the address of a specified field within a specified record. 
LAST .RECORD 

Returns the address of the last data record. 
. STATS 

Used to returns the name and length of the nth field. 



Table Four-a: 








Structure for database: C : wpdrep2 s . dbf 






Number of data records: 308 








Date of last update: 5 / 4 / f 


37 






Fipld 


Fieldname 


Type 


Width 


Dec 


1 


WPD 


character 


7 




2 


FYS 6 


numeric 


8 


3 


3 


FY87 


numeric 


8 


3 


Total: 






24 




Table Four-b: 








Structure for database: C : wpdrepSs . dbf 






Number of data records: 258 








Date of last update: 2 / 2 / f 


37 






Field 


Fieldname 


Type 


Width 


Dec 


1 


WPD 


character 


4 




2 


FY88 


numeric 


8 


3 


3 


FY8 9 


numeric 


8 


3 


4 


FY90 


numeric 


8 


3 


5 


FY91 


numeric 


8 


3 


6 


FY92 


numeric 


8 


3 


Total: 






45 
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Screen U I'j 




Screer; # 16 


'. dBf.SE HEfiDER kLiiti - INFuT imUi U;4l 


V 1 


I dEftSE HEACER ACCtbS Bytes - 31 14'.41 04/30/6; ; 


; KAU ; 




: FIELD, DESC.OFST ( - n: 1 3 * 4« 2« 2* 20 ♦ ; 


VAPIfit.E HDP, ADDS 




: IFLDS ( — r;i HCR.lEN F1ElD.CESC.0FST / 1- : 


\ Hole? the adCE;! c( trit dsta buHer currently ir. use. 










: k&R.lEKETH ( — r.i HDS.ltK H ; 


\ [ISn5'. HEADeP AtCESE Bvtej u - 31 










: DATA.ADDR -- addr! HDR.ADDR i HDR.LtNSTH + ; 


: vEfSlflt. ! -- H5R.ACDR k \ 






: DAlt 1 - addM HDf;.fi31)R « i+ ; 






; Kl.Ei ( -- ril m.m% t H 3 < t(t j \ f:tL,n v lOOOOn 




■. HOh.LEN ( n! HDR.ASDR 6 H 3 + 4* Us ; 






; REC.LEN ! -- r.) hDR.fiOCR 1 1+ 3 t 4+ 2* «« | 






: REStMES \ - ssor) HM.ADER 1 H 3 + A* 2* 2* ; 






Ecreer; # J7 




Screer; it IS 


! dBAEE HEACER ACCESS Bytes 32 - r. 14:41 04/3u;67 ) 


( oEASE item access 14:4! 04,'3C,'B7 )■ 


W CONSTANT FLD. NANS.OFST 




: FIELD ! n — addri FIELD. DEEC.OFST * HDR.ADDR 6 i : 


11 m conetan: nahe.len * 






m COSbTAUT FlD.TYPE.0F5T 




: FIELD, HARE ( r -- str.ador) FIELD FLD.fiAi1E.0FET * ; 


I L'Jr luncIh.e;! ^^t.LL^ + 










; FIELD. Typt i ri — c) FIELD FLD.TTPE.OfSl + C* ; 


4 DJ" CONSTAKT FAC.LEN t 






U'.'r LUn^ ' r.l'. > r Li.' . Ltn . b i 




: FIELD. LEn l n -- c! FIElI- FlD.LEN.OFST + ti \ 


1 UJr LUnolHM rL.LtN + 










: FIELD. DEC. CT ( n -- c) FIELD FlD.DEC.CT.OFST + Ct ; 


1 J'Jr LUNb'Hfii' rl'L.Lcn + 










: Field. Ll^^St! ( n — N.addrl FIELD Kt5.B;Ttb.Q^bT ♦ ; 








Screen » ly 




Screen # 20 


1 dEhSE iltf ACCESS y-lliTV 14:41 04/3i: 


e; i 


i READ dBASE FIlE HEAOEP 14:41 04/30/B7 ) 


: .FNA«t in-! FIELD, tiAfiL miXlK TYfE ; 




: SAVE. OFFSETS i — ) IsFlDS 1+ ! 'ED DUF 






I FIELD, OFFSET >i' ! FIELD. LEn ^ LOO^ DROP ; 


; .FLt!- 1 r - j FIElC.lEn . : 










: SKIF.HDR i handle. cares ~ ! HSk.lEKETk E£Ef,-AES DROP : 


: .STATS ■: r -- ; ClP .FNf.*E .fLE(, ; 










! READ. HDP I hanole.caris - n,P/*i 32 HDk.ADDP 1 READ ; 


; lAST.RECGku ; - ddS'i 




■. fteaas the dBfiSE ule-ce^.Pir.o fcvtes V - 32 


REC.CT 1- REC.LEN « BfTfe.MSR ♦ : 










: READ. HEADER ( haridie.tarf.s - n.P/Fi 


; m. ( ret* -- wir' REC.lEN i DATA.AlIjR ♦ ; 




hCR.LE'iC-'iH hCP.ADDP i READ ; 






''. Reads the toisslete heaoer iRtoriatior Pros bvte 


: aFTELt i reel held* - cddri 






ShAF dh£C 5»|AC' FIELD. CFfSET * : 






Screen * 21 




Screen # 22 ^ ' ' 


; PEAD cBASE FILE PCADEF !4:4! 04/3 




I READ ABASE FIlE HEADEF 14:4! 64/30/87 I 


: fLAT'V.hCi- 1 r.indiE.iicri; - ! 




: REAL. DATA ( handle, Da'ns - ti,T/T! 


'm REA^.HDP {'= -l)*5f 




RtCCT RtCLEl. ♦ ChTA.ADDP BtAt 0= ''DROP ; 


2CiW- StfelK- REAt.HEAlEF (« "SRC* : 










■. N3Tt: HEAD. DATA reads tre entire <Ue. 


: READ' ' Nj.-cU.oarif! bui.aacr -- ) 






HOf.ASTi ' PEADV.HCP EAVE.UfPSETS ; 




: READ.REC ( Handle. pares i r.,<./t! 






REC.LEN » CATA.ADDR READ : 


\ hctCc' u;'s 15 '■eac ir;tt' the user EDeciTie; tutier. 






\ Or.tt Lr:E t'Scde' is CDsiileteTy reaG, oHseti tor ec:h «ie1c 


\ NOTE: hEAC.REL reass one record into the i-tn record soace 


\ i'i CokuUteG i'ii ^tc^ec ir, the Tirst two C«te5 of the 




\ oT the user s buPFer, 


\ rese'vtd sectiCi- tfiit heic. 










: E'.IP.FECS ( handle car»s r. - > REClEn ♦ SEEr-REL DROP ; 


REtilNS pe-torf: ; SEE'-AFS O^OF on tNe c^ver. tiie. 




\ NOTE: First REWHD (0 EEEk-Af;; ; S'l^.HDR. 


'. ''['PCiF o-'ODE tne t.'.e cot;nt or; c sutceEETui reac. 
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ScreeTi # 23 



icse mst C5 gens^ateo to nsfe !■ eeef^ a Sbn~i Mis. 

>F 2D!:'' f:. F;tfiD> 2DLif' READ. DATA CLOSE. FI^E ; 

■ FSE'AF'.E 'esc; CEASE Gits Kite a iiier ttfciliec b-jHc'- 
■: b-uC-' ttn be DCcesEea using ncils on screens 15 thru 19. 
The Bits 15 iT'Oiit uiiric viO'Ss cr, scrterit 20 tfirt 22. 



ScreeTi H 26 

I READ dEAEE F!lE 1 

HANDLE fl 

; SEl.Fl.NfHt ( -- 



14i41 (i4'J0/E7 

: ''Fl Fl .HCt ! 
Fl FILENAME KfDREfrS.DBF ; 



: PREFARE.F! ( - I 

EET.Fl.t,A«t Fi OFEN.FiLt F! dHSRl PREC'ARE ; 



I flirFEF fcR dErSE FILE HEADERS 1A:<I 0«/JWE7 

; lALL ; 

\ The <o!ic>iir;g ctae isust bf ceneritec -tor eaif iEAEE 'lie 

\ bt mtere;'. . 

lOOOC C0«T6fiT dRDPl.LEN 

\ A'A tu'^e- tu^t be Urge enoLoh tc hole t^e entire dBASE 
'. file Hith heeder (used "itr, REA.i.t^Th;, dr et leset one 
'■eiDro w:tf beide' tjeec ttitb READ.REEi. 

CREATE aicn a^DRl.LEN ALLDT 

: UiKin t -- ) tmi dHDRi.LEK ERASE ; 



Screen # 27 

■ fijRRER FOR dDASE FILE HEADERS 14:41 04/30/ 

iJaO-j COnSTAN" dHDR2.LEN 

CREATE dHD^: dHDRi.LEN ALLOT 

; LLdRDRS ■ -- ) dHDR2 dHDR2.LEN ERASE i 

HAIiDiE F2 ; ''FL R2 .HSE ; 

; EE^C2.nAHE I - } f2 FIlErAKE KPCREP5E.DBF ; 

; PRERARE,C2 ' - ) 

StT.f2.llA,1E F2 OPEN. FILE f2 iHDR2 PREPARE ; 



Screen # 31 

t mhi FOR OUTRUl BliFFER 15:!.4 0J/30/ET ) 

7 CONSTfttiT INlLttt 

7 m COhETANT l'^V5 

S DUF CONSTAhT OUTl.EN « 

4 D'JP CONSTANT OUT.IC.LEN * 

CONSTANT OUT.REC.LEN 

500 OUT.flEC.LEK » CONSTANT OOT.LEN 

CREATE OyT.BUF OUT.LEN ALLOT : Ot DUT.BUF | 

\ fiete sure OUT.B'JF is Urge eriough e.g. IFl rece ♦ ♦F2 recs 

: CLOB ( - I OUT.BUF OUT. UN BLhW ; 



Screen # 32 

I DATA FDR OtlTPuT EuFFER 15;54 0:/J0/E7 

VARIABLE DELTA 
VARIABLE FlC.Cl 

: OOT.ID ( reel - add-) Olu.REl.lEN « OtiT.fiuF ♦ : 

\ txetiitio- iddress is Lsed 

CklATE •out. It • OUT. 10 . \ wrii IB mtv BftTtH.fOUKfc' 
\ HATCr'.FOuND'^ I aco' -- r 

: SET. 'ID I - ) Oui.lD « !D ' ; 

: IDiOUT.ELif ( rectir reclaut — i 

SkAP dREC S»iAR ID 4 C«UVE ; 

: lOPRN 1 recti -- ) dREC CR 4 TrRE ; 
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ijt_T tztrtt It o *T 






• m- UNittttHED FECCttS FROK FRO'' JUD6 


13;31 e«/20/E7 ) 


( ir FfiP riiiTPiiT RiirPF 

\ lb r Ur, L' ; r L 1 DUr r C 


i n 1 f'T /111 ID' 1 




VfiRifiELt i(R[C; 




■ 1 Hiiri piit't' puniiPT ( 






VfiRIARE INES.RECE 




I vLL t n 


lL'3 r lu , l ntL . L 1 we f ^LL, 3 








nt\. . U 1 tl^ 






: %i i reel 4ieid? asor) 




i uy^ il'.'UI 






Stiip ID t + SUSF DELTA « - GuTtlEN « + ; 














_ \ 




; «;Ol'^B'Jf ■■ rectir. r6:liD'Jt -- ) FLD.CT 


6 1* i ''DO DvE^ 


DELTA ' if 


.DS FlD.Ci : INEd.RECS 




i di^ltLD 1' OVER, i J$ iNtlEfi Li* 


OVE LOOP 2DRSP ; 


REL.CT «e C 


m 








1 [iUF oREt 


hhTCH.FOiinD? IF «;OUT.BUF 




: NEd.RE'^.CT ' - r,) IRECE i tNtfe.RECE 6 


+ ; 


Else drop n 


Eti.REOOjT.f.jP 1 IKEk.RECS 










THEh LOOP ; 




: hEj.RECilJT.BuF hneii -- i 










^Efc.REE.ET zm ICiULlT.EUf IDQUT.BUF ; 








ScreeTi # 35 




r G G Tt it 3 1 






1 6EiEf:*TE DrJA FILE FROH 2 INRuT FIlEE 


17;0! C3'3i'/E7 ) 








C'lOE 










BET. It 




hPHllE OEP : "'05^ 


CEP ,HCE ; 








DBF FiLEhAHE CDEa. 






' RRERhfE.R!' COUHT TV 




0E7 HA'I-fiLE 






RRERARE.Fl 




OEF OLT.REC.LEfi NEt.RtL.LT » CUT.t 




' LOAD.C'JRR.R'JD&ET' CO'JnT T> 




OEP LLP 






REl.CT >is LT ' LOAD.CLiRR.BUDbti 


Ci uses by B-Tc 








' fRERHRE.F2' COL'NT TV \ NfcTEH.FOl'NS'' 








FRERhRE.F2 










' LOfD.PREf .tiL!['3' COLlhT TV 
Lflfiu.PRQR.f.uDE 












Tec catc 








f-il.EE-f 










( Continued from page 30.) 








vcrsal, and arc a real hindrance to the adop- 


Description: This 


is a complete video 


try. I especially enjoyed your explanation 


tion of Forth. Anyone uploading a file has 


driver, written by Bill Beers, to which I 


of your thought processes and methods of 


a moral obligation to define every non- 


have added an F83 prelude and short docu- 


deciphering someone else's code. This 


standard word. Since F83 is well known 


menlation. Keywords 


VIDEO, MS/DOS, 


was a valuable lesson to a novice like 


and available without cost, it can serve as a 


MS-DOS, BEERS, 


F83, 8086, 8088, 


myself. Now I'm sorting through the van 




secondary standard. — Leonard 


GRAPHICS, DISPLAY, SOURCE 


ous words in the video block and trying 








to learn how to use them. 


»» New File «« 


Category 3, Topic 1 Message 27 




Name: VIDEOl.ARC Number: 911 


Sat Feb 06, 1988 M.HAWLEY 




Address: LMORGENSTERN 


Thanks, Leonard. 


The prelude and 




Bytes: 11340 Library: 3 


VIDEO blocks loaded and ran on the first 
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FORML 

IMPROVED 

STRING HANDLING 

MIKE ELOLA - SAN JOSE, CAUFORNIA 



A 

xXt the kernel level, Forth string han- 
dling can stand improvement. Through 
better factoring, these kernel enhance- 
ments should result in a kernel at least as 
small as existing Forth kernels. 

Opportunities remain for better kernel 
factoring, for at least three reasons: 

1. There are kernel words which perform 
multiple functions (FIND and WORD 
are two examples), so they have too 
large a functional scope. 

2. There are kernel words with overlap- 
ping scope, suggesting that their scope 
is not sufficiently unique. This kind of 
factoring defect has led to a prolifera- 
tion of in-line string operators which 
function similarly. 

3. Even more incremental factoring of 
properly-scoped words is possible. This 
could lead to a reduction of the kernel 
size as the need for kernel versions of 
certain words is eUminated. 

WORD is one example of a kernel word 
that contains multiple functions. It parses a 
word or phrase, leaving another copy of it 
atop the dictionary in the form of a counted 
string. Perhaps the parsing function can be 
factored in upcoming standards, to make it 
separately available. [Write the proposal, 
Mike. -Ed.] 

For maximum flexibility, the parsing 
function must not be overblown and must 
have as few prerequisites as possible. 
Currendy, WORD is inflexible because it 
parses text only from the currently selected 
input stream, be it either the text-input 
buffer (TIB) or a block. Better parsing 
functions would not assume a given input 
location, or even that a copy of the parsed 
expression need be made and placed else- 
where. As will be shown, less ambitious 



parsing functions can be framed. 

While the scope of SPACES cannot be 
criticized, SPACES could still be derived 
more incrementally. If SPACES is used 
rarely, then a short phrase based upon a 
more general primitive may serve as well as 
SPACES. (Likewise, SPACE could be re- 
placed by the phrase 1 SPACES.) 

Avoiding reiteration of similar code is 
desirable outside of the kernel, as well as 
inside it. When creating counterparts to 
S P ACE S , such as CRS , UNDERL I NE S , and 
BACKSPACES, repeated use is made of 
DO-LOOP phrases. However, an even more 
general primitive could be made part of the 
supplied, minimal Forth. Programmers 
could add any higher-level spinoffs, as 
desired (page 18, Figure One-a). Then, for 
example, SPACES could be defined in 
terms of EMIT-CYCLES (Figure One-b). 

A second form of this definition is 
shown within parentheses. To compile an 
ASCII character code into a definition, the 
word ASCII is usually added to Forth. It 
rids die dictionary of constants like BL, 
COLON, UNDERLINE, etc. However, 
because ASCII cannot parse a space, bl 
cannot be eliminated. 

Asacounterpoint of ASCII, C@" can- 
not parse a quote character. But the charac- 
ter code for a space is needed more often, 
and C@" parses the space character prop- 
erly. Also, since C@" ignores any extra 
characters, a clearly delineated comment 
can be included in the parsed string (Figure 
Two). 

The definition of C@" and another, 
unconventional form of the definition are 
shown in Figure Three. 

As a step towards explaining, let's con- 
sider the compilation of ASCII control 



codes. Both ASCII and C@" are inade- 
quate when it comes to parsing conti^ol 
characters with the legibility needed in 
source code. Using constants alleviates the 
situation with respect to control characters, 
but name choices like CR already have 
been taken. Here I would suggest constants 
named with the C@ " prefix and quote suf- 
fix. In the examples shown in Figure Four, 
the quoted string is part of the name field. 
An alternate naming convention using AS - 
Cll-prefixed words would require even 
longer names. 

The addition of C@"2QU0TE" is con- 
venient, as was evidenced in the parenthe- 
sized definition of C@". The addition of 
ASCII-SPACE (or the inconsistent BL) 
should likewise be added for a group of 
words prefixed by ASCI I. 

Using either C@ " or ASCII, character 
codes are compiled as in-Une integers. At 
run time, the in-line integer is placed on the 
stack by (LIT) , the word uniquely re- 
served for this function. This is proper fac- 
toring. However, in the case of in-line 
strings, the equivalent function has been 
reiterated over and over again. 

An author who has exposed these prob- 
lems and has offered solutions is Don 
Colbum ("A Consistent Structure for In- 
Line String Literals," FORML Conference 
Proceedings, 1982). He has observed and 
corrected the overlapping functionality of 
the following words: ( . " ) , ( " ) , and 
(ABORT") . He also addresses the prob- 
lem of placing a table of strings into the 
dictionary. CurrenUy, the kernel only sup- 
ports string compilation within a definition 
via the immediate words .", ", and 
ABORT". 

Colbum has developed a string compil- 
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ing word that works outside of a colon 
definition and that forms the basis for a 
group of well-factored routines. This 
baseline word works equally well within a 
definition when it is called by the group of 
immediate words mentioned in the last 
paragraph. 

(Moreover, Colbum's high-level defi- 
nition of ( . " ) enables it to reference 
TYPE. Sometimes, functional consistency 
should be the driving force behind our 
choice of factoring options. By revectoring 
EMIT, one reasonably expects that all out- 
put will be affected, since EMi T is thought 
to be the one portal through which all out- 
put text must travel. However, because 
( . " ) may be defined without reference to 
either EMIT or TYPE, its behavior may 
remain unchanged after the revectoring of 
EMIT has been performed. If the standard 
would require Colbum's kind of implem- 
entation, then revectoring EMIT would be 
certain to affect all output similarly.) 

Criticism of Colbum's code can be 
answered with minor changes. For in- 
stance, to eliminate manipulation of the 
return stack, ($LIT) could be imple- 
mented as a CODE word. 

Among other possible changes are a 
couple that reflect my own wishes. Rather 
than parse up to a quote character, I want to 
compile a string in the dictionary dehmited 
however I choose (similar to WORD). I also 
prefer a more general-sounding name for 
this function. A definition that would meet 
these added objectives (although the inter- 
nals of Colbum's algorithm may be more 
universally workable than this one) is of- 
fered in Figure Five. Colbum's baseline 
definition can then be defined as in Figure 
Six. 

Discrete words for parsing and com- 
paring strings should be part of the Forth 
kemel, and these could become compo- 
nents of WORD and FIND. To keep the 
kemel streamlined, only basic versions of 
each need be adopted (similar to the policy 
suggested for emit -CYCLES). 

For siring comparisons, one baseline 
word could be used as the platform for 
other spinoffs, including any stmcture- 
spccific comparison operators. Such an 
approach would avoid dictating the use of 
a particular type of string stmcture. 

So the design needed is one that would 
obtain required input parameters from the 
stack instead of directly from memory. 
This is the way TYPE accesses its length 



Forth Dimensions 



16 



Volume X, Number 1 



parameter in order to remain as functional 
with uncounted strings as it is with strings 
in a counted format. On page 33 of their 
book Forth Tools and Applications y Gary 
Feierbach and Paul Thomas provide a so- 
lution with these attributes. A slightly 
modified version of their routine is shown 
in Figure Seven. 

As mentioned at the start, several 
string-parsing routines will be explored. 
Any of these could be used as the basis for 
other spinoffs, as desired. 

To include a primitive parsing function 
in the kernel that does not favor one repre- 
sentation of strings over another, a func- 
tion with less scope than WORD is required. 

The definition in Figure Eight-a could 
be used as a baseline parsing routine. The 
variable scan- increment determines 
the direction of scanning. If it is -1, then 
scanning is to be performed from high 
memory towards low memory. If it is 1, 
then scanning is from low memory to- 
wards high memory. If the search span 
length is exhausted without finding the 
delimiter, then the top-of-stack (TOS) re- 
turned is zero, and below it is the search 
character rather than the address where the 
delimiter resides. 

A version that would be able to return 
the first character that is not a delimiter 
character (to suppress leading delimiters), 
could be developed in a similar fashion 
(Figure Eight-b). 

To fold both routines into one requires 
another variable. If SCAN-GOAL is set to 
zero, then the scan continues until a non- 
delimiter is found. If SCAN-GOAL is set to 
a Boolean truth value (-1 or 1, depending 
on your system), then the scan continues 
until a delimiter is found (Figure Eight-c). 

Conclusions 

Kernel string operations encompass a 
great deal of functionality. Regrettably, all 
of these individual functions are not in a 
form that can be readily used. A significant 
advantage of Forth is the reusability of 
modularly coded routines. However, 
where modularly factored kernel functions 
are lacking, this strategy is uprooted. 

This article has been excerpted from a 
book-length manuscript in progress. I am 
still seeking writeups of string packages 
that can be reproduced and analyzed 
alongside other string packages presented 
in the book. Mail submissions to me in care 
of FIG. 
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: EM IT -CYCLES ( #repetitions char - - ) 
OVER 0> 0= IF 2DR0P EXIT THEN 
SWAP DO 

DUP EMIT 
LOOP DROP ; 

Figure One-a. 



: SPACES ( #spaces - - ) 
BL EMIT-CYCLES ; 

( C@" " EMIT-CYCLES ; ) 
Figure One-b. 



C@"Quil" OVER = IF QUIT THEN 
C@"Main" OVER = IF MAIN-MENU THEN 
C@"?hclp" OVER = IF HELP THEN 
Figure Two. 



: C@" 

34 WORD 1+ C@ 

[COMPILE] LITERAL ; IMMEDIATE 

unconventional: 

Ce"2QU0TE" WORD 1+ C@ 

[COMPILE] LITERAL ; IMMEDIATE 
Figure Three. 
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CONSTANT 


C@ 


"CR" 
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CONSTANT 


C@ 


"FORMFEED" 
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CONSTANT 


C@ 


"BACKSPACE 
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CONSTANT 


C@ 


"BELL" 




CONSTANT 
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CONSTANT 


C@ 


"LEFT" 




CONSTANT 


C@ 


"RIGHT" 




CONSTANT 


C@ 


"UP" 
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"DOWN" 
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CONSTANT 


C@ 


"DELETE" 



Figure ¥out. 



: WORDS , ( <string> ( char - - ) 

WORD eg 1+ ALLOT ; 
Figure Five. 



: , " ( <string>" ( - - ) 

ASCII " WORDS, ; 

( C@"2QU0TE" WORDS, ; ) 
Figure Six. 



VARIABLE COMPARE-BUF 

: COMPARE ( addr len addr 1/0/1) 

COMPARE-BUF ! ( assume equality ) 

SWAP DO ( addr addr - - ) 

OVER Ce OVER C@ - ?DUP 

IF 0< IF 1 ELSE -1 THEN 
COMPARE-BUF ! LEAVE 

ELSE 1+ SWAP 1+ SWAP THEN 

LOOP ( addr addr - - ) 

2DR0P COMPARE-BUF @ ; 
Figure Seven. 



VARIABLE SCAN- INCREMENT 

: Bi-CSCAN ( addr span char - - addr+- rem.span ) 
SWAP ROT ( char span addr - - ) 
DDUP + ( char span addr addr.end - - ) 
SCAN- INCREMENT @ 

0> IF SWAP ELSE 1- >R 1- >R THEN 
DO ( char span - - ) 

OVER I C@ = IF ( match: ) 
I ROT DROP SWAP LEAVE 

ELSE 

1- (char span ) THEN 

SCAN- INCREMENT Q /LOOP 
Figure Eight-a. 



: -B I -SCAN ( addr span char - - addr+- rem.span ) 
SWAP ROT ( char span addr - - ) 
DDUP + ( char span addr addr.end - - ) 
SCAN- INCREMENT d 

0> IF SWAP ELSE 1- >R 1- R> THEN 

DO { char span - - ) 

OVER I C@ = 0= IF ( no match: ) 

I ROT DROP SWAP LEAVE 
ELSE 

1- (char span — ) then 
SCAN- INCREMENT @ /LOOP ; 
Figure Eight-b. 



VARIABLE SCAN-GOAL 

: /BI-CSCAN ( addr span char - - addr+- rem.span ) 
SWAP ROT ( char span addr - - ) 
DDUP + ( char span addr addr.end - - ) 

SCAN- INCREMENT @ 

0> IF SWAP ELSE 1- >R 1- R> THEN 
DO ( char span - - ) 

OVER I C@ = SCAN-GOAL @ = IF 
I ROT DROP SWAP LEAVE 

ELSE 

1- ( char span — ) THEN 
SCAN- INCREMENT @ /LOOP ; 
Figure Eight-c. 
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F83 

HEADERLESS LOCAL 

VARIABLES AND CONSTANTS 

JOHN P. DAUGHERTY - BURKE, VIRGINIA 



A 

current application under design is 
large, and dictionary space has become a 
premium. For readability and speed, the 
coding reflects heavy use of 'local' vari- 
ables and constants within word compo- 
nents, eliminating the slower and less 
readable dups, rots, and swaps. Some 
method of stripping off the headers of these 
local variables and constants would save 
measurable space. Researching existing 
literature (see references) turned up unsat- 
isfactory methods. Instead, a new design 
was chosen and is discussed below. Laxen 
and Perry's F83 is used. 

Backgroup and Requirements 

Real headerless local variables and 
constants should execute the same as their 
standard counterparts created with VARI- 
ABLE and CONSTANT. Four bytes in any 
variable or constant word are key to execu- 
tion: the two bytes of the code field address 
(CFA) and the two bytes containing the 
variable or constant. The header is not 
needed for execution and can be discarded. 
Therefore, any method for defining local 
variables or constants must retain only four 
bytes. 

To meet the application needs, the fol- 
lowing requirements were established: 

1. During execution, the local variables 
and constants must perform identically 
to the standard, global variables and 
constants. 

2. An application must be able lo name the 
local variable or constant, like any Forth 
word. Numbers are not permitted. 

3. The defining words for the local vari- 
ables and constants shall be vari- 
able and CONSTANT. This minimizes 
changes to existing source code. 



4. Both local and global variables and 
constants will be used. Therefore, an 
application must be able to pick the 
correct defining word, cither the global 
or the local one. 

5. When all components are finished using 
the local words, the local headers must 
be stripped and any memory used by 
them recovered. The link in their head- 
ers must be somehow taken care of lo 
allow normal dictionary searches to 
occur after headers are stripped. 

Approach 

By placing the view, link, and name 
fields (the header) in free memory space 
several thousand bytes above the current 
dictionary pointer, and by placing the code 
and parameter fields in the normal diction- 
ary space, headerless variables and con- 
stants are possible. Once finished using 
these local variables and constants, their 
headers can be forgotten by unlinking them 
from the other in-line Forth words. The 
space used by these headers will be over- 
written by the dictionary as it grows. To 
make sure the standard and local defining 
words are distinguishable, a separate vo- 
cabulary will be used. The dictionary 
search order will control which defining 
word is found first. 

Screens 1 - 4 contain the utility that 
meets the requirements outlined above. All 
but three of the components in this utility 
are in the HIDDEN vocabulary. LOCAL- 
OFFSET, START -LOCAL, and END-LO- 
CAL are in the FORTH vocabulary. 

START-LOCAL (screen 4) saves the 
CURRENT vocabulary threads (four in 
F83) after setting HIDDEN as the first 
vocabulary to search in the dictionary. 



Saving these threads becomes important 
when unlinking the local words with END- 
LOCAL. LOCDP, the local dictionary 
pointer, is initialized lo high memory (de- 
termined by the constant local -OFF- 
SET and HERE). This distance allows suf- 
ficient room for most applications, and can 
be changed as necessary with F83's IS 
(e.g., 3000 IS LOCAL-OFFSET). 

New versions of CREATE, CON- 
STANT, VARIABLE, and 2VARIABLE 
are defined in screen 3. These words are 
HIDDEN definitions, distinguishing them 
from the Forth definitions of the same 
name. DOLOCAL is used directly or indi- 
rectly by each of these words. It creates a 
header in high memory by setting the dic- 
tionary pointer, DP, lo the value contained 
in LOCDP after saving dp's value on the 
stack. With DP in high memory, any new 
words CREATEd will have headers well 
above the normal dictionary space. This is 
okay as long as this space is noloverwritten 
before it is unlinked. 

After creating the header in high mem- 
ory, the original value of DP is compiled 
(DUP ,) into the space following the 
header to be retrieved later (by IX)ES> (g)). 
The CFA of the local variable or constant 
will be placed at the address pointed to by 
DOES> @. This will be the indirectly 
threaded address stored in any parameter 
field using the defined local word. Words 
defined with DOLOCAL are made IMME- 
DIATE to allow DOES> to present the CFA 
address for compilation in a colon compo- 
nent, or to be EXECUTEd when not 
compiling. STATE determines which of 
these actions to take. 

Wrapping up the CREATE portion of 
DOLOCAL, the LOCDP is updated to point 
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just beyond the last high memory used, 
ready for the next local header. Having 
finished with the high memory, DP is reset 
to the normal dictionary space and a value 
is compiled with , (comma). In the case of 
CONSTANT, the word to "comma" is the 
headerless Forth word DOCONSTANT, 
found by ticking the constant zero. Like- 
wise, for VARIABLE — DOCREATE, an- 
other Forth headerless word, is compiled. 

Words defined by these four defining 
words, when used inside a colon definition, 
perform in the same way as Forth defini- 
tions. No speed penalty is sacrificed by 
using local words. Additional compile time 
is required, but this can be traded against 
fewer words in the dictionary to search, 
once the local words are unlinked. 

Unlinking is accomplished by END- 
LOCAL (screen 4). For each thread, END- 
LOCAL searches for any links to memory 
above the current dictionary pointer. If one 
is found, a false flag is left on the stack and 
also TUCKcd below it. BEGIN-WHILE- 
REPEAT terminates and the IF, seeing a 
false flag, branches to ELSE and stores the 
saved thread in the word linked to high 
memory, thus unlinking this particular 
thread from the local constant or variable. 
If no link in high memory is found, the BE - 
gin-while-repeat loop will termi- 
nate when the link points to a value below 
what is stored in THREADS. A true flag will 
be on the stack, and IF drops the two 
addresses, end-local also resets the 
vocabulary search order to where it was 
originally. 

Rules of Use 

1. Place all global variables and constants 
together, ahead of the local variables 
and constants. 



2. Begin all local variables with start- 
LOCAL. 

3. Do not change vocabularies or FORGET 

any words between START -LOCAL 
and END -LOCAL. Doing so will change 
the links, and END -LOCAL will not 
unlink properly. A system crash is 
likely! 

4 . Debug the program before making words 

local. DEBUG doesn't like headerless 
words. 

5. Make sure the program is not larger than 

LOCAL-OFFSET. If it is, change LO- 
CAL-offset's value before loading. 

6. Use end-local when finished using 
the local words in other words. 

Summary 

This utility encourages use of local 
constants and variables. It meets all the 
requirements outlined above. As long as the 
rules are followed, no problems have been 
noticed to date. It has almost eliminated the 
confusing code associated with overuse of 
DUPs, ROTS, and swaps. A tradeoff in 
compilation speed is not noticeable, and the 
run-time code is unaffected. It is not fool- 
proof if the rules are not followed. 
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...and eat it, too. One of the great virtues of 
Forth is its compactness. We can pack a lot 
of program into a small memory space. 
Another advantage is its on-line assembler, 
which gives our programs blinding speed 
and complete control of the hardware. 
These two might seem to conflict. An as- 
sembler takes up a lot of dictionary space. 
However, this need not be the case. 

The assembler is only needed at com- 
pile time when a CODE word is encoun- 
tered. It is not needed at all when the pro- 
gram runs. Consider the structure of a defi- 
nition. All Forth words have a code field 
that contains the address of machine-ex- 
ecutable code. When the word is executed, 
the computer jumps to the address pointed 
to by the code field, and executes the run- 



time code contained there. For the typical 
Forth word, this run-time code is contained 
in its defining word and is common to all 
words so defined . For this reason , the defin- 
ing word must exist when the daughter 
word is executed. 

The code field of an assembler defini- 
tion, on the other hand, points not to some 
run-time code common to all assembler 
definitions, but to its own parameter field 
which contains machine-executable code. 
For this reason, the assembler definition is 
independent of its defining word. 

It is very simple to use the assembler at 
compile time but lo eliminate it from the 
compiled program. The strategy is to load 
your Forth kernel as usual, then change the 
dictionary pointer to some arbitrary loca- 



tion in high memory. Load the assembler, 
then return the dictionary pointer to its old 
value. Load the rest of the application, 
being sure that all CODE definitions are 
loaded early, before the assembler is over- 
written. The vocabulary mechanism en- 
sures that Forth will be able to find its way 
around this fragmented dictionary. (See 
Figures One-a, One-b, and One-c.) 

In the example shown in Figure Two, 
D P is the variable that contains the diction- 
ary pointer. 

Using this technique, you can have an 
assembler that is just as big and fancy as 
you like, with no increase in the size of 
your program. 



The memory map looks like this: 



Low 
Memory 



ASSEMBLER 



High 
Memory 



CODE DEFINITIONS 



ASSEMBLES 



CODE DEFINITIONS 



APPLICATION 



Figure One-a 



Figure One-b 



Figure One-c 
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NGS FORTH 
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•DECOMPILER AND 
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•NGS ENHANCEMENTS 
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A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 
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m 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA, OA. 95055 
(408) 241-5909 



VOCABULARY ASSEMBLER IMMEDIATE 

HERE \ The current value of the dictionary 

\ pointer remains on the stack while the 
\ assembler is loaded. 



AOOO DP ! \ Changes the dictionary pointer to an 
\ arbitrary value in high memory, 
\ (40k in this example) 



The assembler is loaded. 



DP ! \ Returns the dictionary pointer to the old 
\ value left on the stack by HERE. 

FORTH DEFINITIONS 



The rest of the application is loaded. 



Figure Two 
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ANS FORTH 

MEETING NOTES 

RAY DUNCAN - MARINA DEL REY, CALIFORNIA 



T 

Xhc third meeting of the X3J14 ANS 
Forth Technical Committee was heldatRe- 
dondo Beach, California on February 10 - 
12, 1988. FORTH, Inc. hosted the meeting, 
providing us with nice facilities, refresh- 
menus, copying, administrative services, 
and even restaurant recommendations! The 
weather was clear and balmy, with tem- 
peratures in the 80s, and the TC members 
were also treated to a small earthquake. 

As of the beginning of this meeting, the 
X3 Sccrctiiriat had not yet appointed all the 
permanent officers for X3J 14. In the mean- 
time, Elizabeth Rather agreed to continue 
as Acting Chair, Martin Tracy as Acting 
Secretary, and Ron Braithwaite as Docu- 
mentEditor. I have been appointed as Vice- 
Chair by X3J 14, and the position of Inter- 
national Representative is still vacant. 

Approximately 25 people attended this 
meeting, which 1 believe makes it the larg- 
est to date. There were several observers 
from the Los Angeles area and several new 
members, including George Shaw (Shaw 
Laboratories, Inc.) and Dean Sanderson 
(FORTH, Inc.). Guy Kelly was present for 
the first day but had to leave early after 
delivering a report from the Research Sub- 
committee; two other valued members 
from previous meetings, Jerry Shifrin and 
Larry Forslcy, were unable to attend at all 
due to other work obligations. 

Approximately thirty technical propos- 
als were received prior to, or at, the third TC 
meeting. The TC's Technical Subcommit- 
tee found time to consider nearly all of 
these, under the excellent guidance of Greg 
Bailey. 

First, a brief review of the Standards 
process so far. At its first meeting, the 
X3J14 Technical Committee adopted the 



text of the Forth-83 Standard (less the Ex- 
perimental Proposals) as its working, or 
BASIS, document. The BASIS will evolve 
into the draft proposed American National 
Standard (dpANS) document, as the TC 
ratifies Technical Proposals which delete, 
amend, or enlarge the BASIS. 

Prior to this meeting, the most signifi- 
cant change made lo BASIS was Elizabeth 
Rather's proposal to (in essence) relax 
Forth-83's insistence on 16-bit stacks and 
addresses, and to allow the construction of 
Standard systems based on virtual Forth 
machines with other word sizes. The Docu- 
ment Committee also recast the BASIS 
from its original form into a style consistent 
with ANSI requirements. 

The most important Technical Propos- 
als passed at this meeting were (these are 
paraphrased by me and are not the original 
wording, unless otherwise noted): 

1 . To continue the process of decoupling 
the Standard from machine word size by 
substituting the terms "single precision" 
and "double precision" for "16-bit" and 
"32-bit." 

2. To require any Standard Program to 
include a list of resource requirements. 
System Implementation Options, and envi- 
ronmental dependencies. System Implem- 
entation Options are defined as features, 
properties, parameters, boundary condi- 
tions, behaviors, or side effects in which 
respect Standard Systems are permitted to 
differ (this includes word size). 

3. To relax the definition and/or require- 
ment of Equivalent Execution in order to 
allow for Standard Systems implemented 
on different physical or virtual machines. It 
seemed to be the prevailing opinion of the 
TC (which I share) that Forth-83 's defini- 



tion of Equivalent Execution is a margin- 
ally useful concept at best. It can never be 
guaranteed unless the supporting hard- 
ware and software are in fact identical, 
which is hardly the situation the Standard 
is intended to address. 

4. To remove the requirement for 
floored division from the Standard, while 
still making it available for existing Forth- 
83 Standard programs or other programs 
which require its rounding behavior. The 
exact wording of this Technical Proposal 
follows: 

Add to the 'Definitions' section the fol- 
lowing: 

"Division: Division produces a quo- 
tient 'q' and a remainder 'r' by dividing 
operand 'a' by operand 'b'. A division 
operation may return either 'q', 'r', or 
both. 

"The identity 'bq + r = a' shall hold for 
all 'a' and 'b'. 

"When both integers are divided and 
the division is inexact, if both 'a' and 'b' 
are positive, then 'q' is the largest integer 
less than the true quotient and 'r' is posi- 
tive. If either operand is negative, whether 
'q' is the largest integer less than the true 
quotient ('flooring') or the smallest inte- 
ger greater than the true quotient ('round- 
ing down*) is implementation-defined, as 
is the sign of 'r'. 

"An implementation shall clearly 
document which negative-case behavior 
is the default, and shall provide a clearly 
documented mechanism whereby the 
other behavior will be available to the pro- 
grammer." 

5. NIP and TUCK were added to the 
Controlled Reference Word Set, in recog- 
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NOW FOR IBM PC, XT, AT, PS2 
AND TRS-80 MODELS 1 , 3, 4. 4P 

The Gifted 
Computer 

1. Buy MMSFORTH before year's end, 
to let your computer work harder and 
faster. 

2. Then MMS will reward it (and you) 
with the MMSFORTH GAMES DISK, 
a $39.95 value which we'll add on at 
no aditttional chargel 

MMSFORTH is the unusually smooth 
and complete Forth system with the 
great support. Many programmers report 
four to ten time* greater productltrlly 
with this outstanding system, and MMS 
provides advanced applieatlont pro* 
grams In Forth for use by beginners and 
tor custom modifications. Unlike many 
Fofths on ttie market, MMSFORTH gives 
you a rich set of the instructions, editing 
and debugging tools that professional 
programmers want. The licensed user 
gets continuing, free ptione tips and a 
MMSFORTH Newaletter is available. 
The MMSFORTH GAMES DISK includes 
arcade games (BREAKFORTH, CRASH- 
FORTH and. for TRS-80, FREEWAY), 
tjoard games (OTHELLO and TIC-TAC- 
FORTH), and a top-notch CRYPTO- 
QUOTE HELPER with a data file of 
coded messages and the ability to en- 
code your own. All of these come with 
Forth source code, for a valuable and 
enjoyable demonstration of Forth pro- 
gramming techniques. 
Hurry, and the GAMES DISK will be our 
free gift to you. Our brochure is free, 
too, and our knowledgeable staff is 
ready to answer your questions. Write. 
Better yet, call 617/653-6136. 




Fmrn 



and a free gift! 



GREAT FORTH: 

MMSFORTH V2,4 $179.95* 

The one you've read about in FORTH: A 
TEXT & REFERENCE. Available for IBM 
PC/XTMT/PS2 etc., and TRS-80 M.I, 3 
and 4 

GREAT MMSFORTH OPTIONS: 

FORTHWRITE $99.95* 

FORTHCOM 49.95 

DATAHANDLER 59.95 

DATAHANDLER-PLUS* 99.95 

EXPERT-2 69.95 

UTILITIES 49.95 

'Single-computer, single-user prices; cor- 
porate site licenses from $1,000 additional. 
3'/4" format, add $5/di8k; Tandy 1000, add 
$20. Add S/H, plus 5% tax on Mass. orders. 
DH+ not avail, tor TRS-80S. 

GREAT FORTH SUPPORT: 

Free user tips, MMSFORTH Newsletter, 
consulting on hardware selection, staff 
training, and programming assignments 
large or small. 
GREAT FORTH BOOKS: 

FORTH; A TEXT & REF $21.95* 

THINKING FORTH 16.95 

Many others in stock. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shora Road, Natick, MA 01760 
(617/653-6136, 9 am • 9 pm) 



nition of their widespread usage. 

6. EVAL, a word that allows the inter- 
pretation of arbitrary strings, was added to 
the BASIS. This word only originated with 
Martin Tracy about a year ago, but has 
been rapidly accepted in the Forth commu- 
nity. When EVAL is available, words that 
redirect the input stream can be readily 
ported from one system to another, and 
new interpreters can be easily built in an 
implementation-independent manner. 

7. The Documentation Committee was 
directed to add Appendices to BASIS that 
will (1) identify problem areas in program 
portability and (2) provide a rationale for 
each difference between ANS FORTH and 
Forth-83. These Appendices presently ex- 
ist only as "stubs," but will be developed 
over subsequent meetings. 

While not passed during this meeting, a 
Technical Proposal for a minimum exten- 
sion set of floating-point operators en- 
joyed widespread support within the TC. 
The Technical Proposal was referred to 
Martin Tracy for fine-tuning; he was di- 
rected to confer with those vendors cur- 
rently supplying floating-point implemen- 
tations and make sure that it did not contain 
any major conflicts with existing practice. 
After any necessary "adjustments," the 
Technical Proposal will be reconsidered at 
the next X3J14 meeting. 

The TC demonstrated its concern for 
compatibility with the existing Forth-83 
Standard by rejecting Technical Proposals 
that would have changed the meaning of 
NOT andremoved the requirement that . ", 
. (, (, and ABORT" be able to parse null 
strings. It also defeated a proposal to 
rename 2over, 2 swap, et al. to DOVER, 
DSWAP, etc. 

The BASIS document (in its current 
state) is available for the cost of reproduc- 
tion and postage from: 

Secretary 

ANSI ASC X3/X3J14 Forth Standards 
Committee 

IIIN. Sepulveda Blvd. 
Suite 300 

Manhattan Beach, CA 90266 

Technical Proposal forms and instruc- 
tions are also available from the Secretary. 

Warning: While the X3J14 BASIS 
document is public, it is not to be repro- 
duced or distributed in any way without the 
express permission of the X3J14 Techni- 



cal Committee. BASIS is not, and never 
will be, a Standard. It is only an early 
precursor of dpANS, a work-in-progress 
of X3J14. BASIS is very fluid; nothing in 
it can be counted on to be in the eventual 
dp ANS. Note also that the dp ANS, once 
completed, will be subject to an extensive 
process of public review and possible revi- 
sion before it becomes an American Na- 
tional Standard for Programming Lan- 
guage Forth. 

The next meeting of X3J14 will be in 
Rochester, New York on May 11-14, 
1988. New members and observers are 
welcome, Technical Proposals from all 
interested parties are invited. To be placed 
on the mailing list for the next meeting, 
address your request to: 

Chair, X3JI4 Forth Standards Com- 
mittee at the address above. 

Personal impressions: While it got off 
to a slow start at the first two meetings, the 
X3 J 14 TC has now demonstrated a desire, 
and ability, to move briskly forward on 
some very difficult issues. In spite of their 
vastly different constituencies and histori- 
cal perspectives, the TC members worked 
together productively in a spirit of coop- 
eration and goodwill. I was particularly 
impressed (and surprised) by the TC's 
willingness to embrace a relatively new 
but remarkably useful tool-building word 
such as EVAL, and by the high degree of 
interest in extension word sets for file 
interfaces and floating point. 

The X3J14 members represent an ex- 
traordinary assemblage of Forth expertise. 
They represent the cutting edge of Forth 
technology in virtually every area: from 
Forth "engines," to "rich" Forth imple- 
mentations for workstations such as the 
Mac II, to NASA's Massively Parallel 
Processor. I am convinced that the ANS 
Forth Standard, when it is finished, will 
represent an immense leap forward for 
Forth vendors and programmers. 

This is an unofficial report of the X3J 14 
meeting and does not constitute official 
minutes. Any opinions, predictions, or 
conclusions in this report are purely my 
own and should not be misconstrued to 
represent those of the X3J14 TC or its 
other officers. 
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CALL FOR PAPERS 

for the tenth annual 

FORML CONFERENCE 

The original technical conference 
for professional Forth programmers, managers, vendors, and users. 

Following Thanksgiving, November 25-27, 1988 

Asilomar Conference Center 
Monterey Peninsula overlooking the Pacific Ocean 
Pacific Grove, California U.S.A. 

Theme: Forth and Artificial Intelligence 

Artificial intelligence applications are currently showing great promise when developers 
focus on easy-to-use software that doesn't require specialized expensive computers. Forth's 
design allows programmers to modify the Forth language to support the unique needs of 
artificial intelligence. Papers are invited that address relevant issues such as: 

Programming tools for AI 
Multiusers and multitasking 
Management of large memory spaces 
Meeting customer needs with Forth AI programs 
V^indowing, menu driven or command line systems 
Captive Forth systems— operating under an OS 
Interfacing with other languages 
Transportability of AI programs 
Forth in hardware for AI 
System security 

Papers about other Forth topics are also welcome. Mail your abstract(s) of 100 words or 
less by September 1, 1988 to: 

FORML 
P. O. Box 8231 
San Jose, CA 95155 

Completed papers are due by October 15, 1988. For registration information call the Forth 
Interest Group business office at (408) 277-0668 or write to FORML. 

Asilomar is a wonderful place for a conference. It combines comfortable meeting and 
living accommodations with secluded forests on a Pacific Ocean beach. Registration 
includes deluxe rooms, all meals, and nightly wine and cheese parties. 
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March 1988 

THE BEST OF 

GENIE 

GARY SMITH - UTTLE ROCK, ARKANSAS 



lews from the GEnie Forth 
RoundTable. When I was asked to begin a 
"Best of GEnie" column for Forth Dimen- 
sions, I immediately realized I wanted 
Leonard Morgenstem's topic area to be 
among the first presented. Leonard has 
done a marvelous job of presenting our 
language of choice in bite-sized chunks, 
and in such an entertaining fashion as to 
create a novice-and-experienced Forth tu- 
torial area. 

Time constraints and the sheer depth of 
material available in Leonard's area dic- 
tated making this first column an extraction 
of that one topic. Future installations will 
include discussions of the ANS FORTH 
X3J14 Technical Committee. Those of you 
who are not aware that the future of Forih is 
being decided on GEnie now are missing an 
opportunity to make your wishes known. 

Besides serving as the centerpiece in the 
first "Best of GEnie," Leonard had several 
coinciding events that make March 1988 
especially memorable. He just celebrated a 
birthday and his retirement from the rat 
race. He also graciously accepted an offer 
to join Dennis Ruffer, Scott Squires, and 
me as co-hosts of the Forth RoundTable on 
GEnie. Congratulations, Leonard, and 
thank you. 

Category 3, Topic 1 Message 3 
Sat Jan 16, 1988 M.HAWLEY 

Dennis, The word OK? appears in the 
ANAGRAMS. ARC file I recently down- 
loaded from this board. It was in another 
that I can't remember now. ANAGRAMS 
looked like a lot of fun but it wouldn't run 
on any of my public -domain Forths be- 
cause of the missing OK?. As a newcomer 
to Forth, I find this sort of thing very frus- 



trating. I thought this was the purpose of 
having standards. Another problem word I 
ran into was 2ARRAy. It was in 
BULLCOWS for ZENFORTH but not de- 
fined in the version of ZENFORTH that I 
have. As an example of how it should be 
done. I downloaded UNARC.SCR and 
UNARC.F83 which is a prelude for F83 to 
run this application written in some non- 
standard Forth, NORTHFORTH or some- 
thing like that. It worked perfectly the first 
time. My compliments to that masterful 
programmer. As a beginner, I run into dead 
ends real fast when I hit an undefined word 
which is not in the Forth-83 wordsct or any 
of the manuals I have. Thanks for your 
attention to my problems. I imagine others 
have had sim ilar experiences and get turned 
off for that reason. — meh 

Category 3, Topic 1 Message 5 

Sun Jan 17, 1988 S.W.SQUIRES [scott] 

STANDARDS PEOPLE, please note 
message #3 above. Finding undefined 
words in source code is a pet peeve of mine. 
As a beginner, I went through the same 
problem and sometimes still do. It's no fun 
typing in a tool you've been wanting and 
then finding that it is missing one word with 
no info as to what it even does. It' s also very 
easy to assume that "everyone" has this 
word and knows what it is (2 ARRAY, 
ASCII, MYSELF, etc.) Now is 2ARRAY a 
two-dimensional-array-defining word or a 
single-dimension, double-precision array? 
I've seen it used both ways. 

This is where the standards come in — 
common words should be in the standard, 
or at least in the controlled reference word 
set A utility that would come in handy 
would be the ability to compare words with 



the raw standards and display the ones that 
aren't in the standards and that aren't de- 
fined in the standards. The Forth-79 from 
MicroMotion used to do this by setting one 
of the unused bits in the name field if the 
word was standard. — Scott 

Category 3, Topic 1 Message 6 
Sun Jan 17, 1988 M.HAWLEY 

Dennis, Let me correct myself. The 
hangup word in ANAGRAMS was NUF? I 
have since found a definition of NUF? in 
F83X320C ... a version of Forth-83 that I 
don't usually use. 

: NUF? 

KEY? DUP IF 2DR0P 
BEEP KEY 13 = THEN ; 

The hangup word 2 ARRAY appears in 
LIFE.SCR — the game of life contained 
here in LIFE.ARC. OK?, I believe, ap- 
peared in BULLCOWS written for ZEN- 
FORTH and I'm vaguely aware that there is 
a newer version of ZEN than the one I have. 
Last, but not least, I was unable to load 
MAZE . ELK from MAZE ARC because of 
the word VIDEO. Is video a standard 
Forth-83 word? I don't find it in the book 
Inside F83 by C. H. Ting. And I can't find 
it in my public-domain Forths including 
F83, F83x320C, ZENFORTH, SEATTLE 
FORTH, MVP-FORTH. This gets old fast. 
It would be nice to be able to assume that an 
application uploaded here for pubUc con- 
sumption would contain definitions for all 
non-F83 standard words, but this does not 
seem to be the case. Another correction, the 
definition of NUF? above omitted one 
KEY. It should be: 
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YES, THERE IS A BETTER WAY 
A FORTH THAT ACTUALLY 
DELIVERS ON THE PROMISE 

hs/forth 

POWER 

HS/FORTH's compilation and execution speeds are 
unsurpassed. Compiling at 20,000 lines per minute, it 
compiles faster than many systems link. For real jobs 
execution speed is unsurpassed as well. Even non- 
optimized programs run as fast as ones produced by 
most C compilers. Forth systems designed to fool 
benchmarks are slightly faster on nearly empty do 
loops, but bog down when the colon nesting level ap- 
proaches anything useful, and have much greater 
memory overhead for each definition. Our optimizer 
gives assembler language performance even for 
deeply nested definitions containing complex data and 
control structures. 

HS/FORTH provides the best architecture, so good that 
another major vendor "cloned" (rather poorly) many of 
its features. Our Forth uses all available memory for 
both programs and data with almost no execution time 
penalty, and very little memory overhead. None at all for 
programs smaller than 200kB. And you can resize seg- 
ments anytime, without a system regen. With the 
GigaForth option, your programs transparently enter 
native mode and expand into 1 6 Meg extended memory 
or a gigabyte of virtual, and run almost as fast as in real 
mode. 

Benefits beyond speed and program size include word 
redefinition at any time and vocabulary structures that 
can be changed at will, for instance from simple to 
hashed, or from 79 Standard to Forth 83. You can be- 
head word names and reclaim space at any time. This 
includes automatic removal of a colon definition's local 
variables. 

Colon definitions can execute inside machine code 
primitives, great for interrupt & exception handlers. 
Multi-cfa words are easily implemented. And code 
words become incredibly powerful, with multiple entry 
points not requiring jumps over word fragments. One of 
many reasons our system is much more compact than 
its immense dictionary (1 600 words) would imply. 

INCREDIBLE FLEXIBILITY 

The Hosetta Stone Dynamic Linker opens the world of 
utility libraries. Link to resident routines or link & remove 
routines interactively. HS/FORTH preserves relocata- 
bility of loaded libraries. Link to BTRIEVE f^ETAWIN- 
DOWS HALO HOOPS ad infinitum. Our call and data 
structure words provide easy linkage. 

HS/FORTH runs both 79 Standard and Forth 83 pro- 
grams, and has extensions covering vocabulary search 
order and the complete Forth 83 test suite. It loads and 
runs all FIG Libraries, the main difference being they 
load and run faster, and you can develop larger applica- 
tions than with any other system. We like source code in 
text files, but support both file and sector mapped Forth 
block interfaces. Both line and block file loading can be 
nested to any depth and includes automatic path 
search. 



FUNCTIONALITY 

More important than how fast a system executes, is 
whether it can do the job at ail. Can it work with your 
computer. Can it work with your other tools. Can it trans- 
form your data into answers. A language should be 
complete on the first two, and minimize the unavoidable 
effort required for the last. 

HS/FORTH opens your computer like no other lan- 
guage. You can execute function calls, DOS com- 
mands, other programs interactively, from definitions, 
or even from files being loaded. DOS and BIOS function 
calls are well documented HS/FORTH words, we don't 
settle for giving you an INTCALL and saying "have at it". 
We also include both fatal and informative DOS error 
handlers, installed by executing FATAL or INFORM. 

HS/FORTH supports character or blocked, sequential 
or random I/O. The character stream can be received 
from/sent to console, file, memory, printer or com port. 
We include a communications plus upload and down- 
load utility, and foreground/background music. Display 
output through BIOS for compatibility or memory 
mapped for speed. 

Our formatting and parsing words are without equal. In- 
teger, double, quad, financial, scaled, time, date, float- 
ing or exponential, all our output words have string 
formatting counterparts for building records. We also 
provide words to parse all data types with your choice of 
field definition. HS/FORTH parses files from any lan- 
guage. Other words treat files like memory, nn@H and 
nn!H read or write from/to a handle (file or device) as 
fast as possible. For advanced file support, HS/FORTH 
easily links to BTRIEVE, etc. 

HS/FORTH supports text/graphic windows for MONO 
thru VGA. Graphic drawings (line rectangle ellipse) can 
be absolute or scaled to current window size and 
clipped, and work with our penplot routines. While great 
for plotting and line drawing, it doesn't approach the ca- 
pabilities of Metawindows (tm Metagraphics). We use 
our Rosetta Stone Dynamic Linker to Interlace to Meta- 
windows. HS/FORTH with Meta Windows makes an un- 
beatable graphics system. Or Rosetta to your own 
preferred graphics driver. 

HS/FORTH provides hardware/software floating point, 
including trig and transcendentals. Hardware fp covers 
full range trig, log, exponential functions plus complex 
and hyperbolic counterparts, and all stack and compari- 
son ops. HS/FORTH supports all 8087 data types and 
works in RADIANS or DEGREES mode. No coproces- 
sor? No problem. Operators (mostly fast machine code) 
and parse/format words cover numbers through 1 8 dig- 
its. Software fp eliminates conversion round off error 
and minimizes conversion time. 

Single element through 4D arrays for all data types in- 
cluding complex use multiple cfa's to improve both per- 
formance and compactness. Z = (X-Y) / (X -i^ Y) would 
becoded;XY-XY -i- /ISZ(16byt6s)insteadof:X@ 
Y @ - X @ Y @ + / Z 1(26 bytes) Arrays can ignore 64k 
boundaries. Words use SYNONYMS for data type inde- 
pendence. HS/FORTH can even prompt the user for 
retry on erroneous numeric input. 

The HS/FORTH machine coded string library with up to 
3D arrays is without equal. Segment spanning dynamic 
string support includes insert, delete, add, find, replace, 
exchange, save and restore string storage. 

Our minimal overhead round robin and time slice multi- 
taskers require a word that exits cleanly at the end of 
subtask execution. The cooperative round robin multi- 
tasker provides individual user stack segments as well 
as user tables. Control passes to the next task/user 
whenever desired. 



APPLICATION CREATION TECHNIQUES 

HS/FORTH assembles to any segment to create stand 
alone programs of any size. The optimizer can use HS/ 
FORTH as a macro library, or complex macros can be 
built as colon words. Full forward and reverse labeled 
branches and calls complement structured flow control. 
Complete syntax checking protects you. Assembler 
programming has never been so easy. 

The Metacompiler produces threaded systems from a 
few hundred bytes, or Forth kernels from 2k bytes. With 
it, you can create any threading scheme or segmenta- 
tion architecture to run on disk or ROM. 

You can turnkey or seal HS/FORTH for distribution, with 
no royalties for turnkeyed systems. Or convert for ROM 
in saved, sealed or turnkeyed form. 

HS/FORTH includes three editors, or you can quickly 
shell to your favorite program editor. The resident full 
window editor lets you reuse former command lines and 
save to or restore from a file. It is both an indispensable 
development aid and a great user interface. The macro 
editor provides reuseable functions, cut, paste, file 
merge and extract, session log, and RECOMPILE. Our 
full screen Forth editor edits file or sector mapped 
blocks. 

Debug tools include memory/stack dump, memory 
map, decompile, single step trace, and prompt options. 
Trace scope can be limited by depth or address. 

HS/FORTH lacks a 'modular " compilation environ- 
ment. One motivation toward modular compilation is 
that, with conventional compilers, recompiling an entire 
application to change one subroutine is unbearably 
slow. HS/FORTH compiles at 20,000 lines per minute, 
faster than many languages link — let alone compile! 
The second motivation is linking to other languages, 
HS/FORTH links to foreign subroutines dynamically, 
HS/FORTH doesn't need the extra layer of files, or the 
programs needed to manage them. With HS/FORTH 
you have source code and the executable file. Period. 
"Development environments" are cute, and necessary 
for unnecessarily complicated languages. Simplicity is 
so much better, 

HS/FORTH Programming Systems 

Lower levels include all functions not named at a higher 



level. Some functions available separately. 
Documentation S Working Demo 

(3 books, 1 000 -I- pages, 6 lbs) $ 95. 

Student $145. 

Personal optimizer, scaled & quad integer $245. 

Professional 80x87, assembler, turnkey, $395. 



dynamic strings, multitasker 
RSDL linker, 
physical screens 
Production ROM, Metacompiler, Metawindows 

$495. 



Level upgrade, price difference plus $ 25. 

OBJ modules $495 
Rosetta Stone Dynamic Linker $ 95. 

Metawindows by Metagraphics (includes RSDL) 

$145. 

Hardware Floating Point & Complex $ 95. 

Quad integer, software floating point $ 45. 

Time slice and round robin multilaskers $ 75. 



GigaForth (80286/386 Native mode extension) $295. 

HARVARD 
SOFTWORKS 

POBOX69 
SPRINGBORO, OH 45066 
(513)748-0390 
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: NUF? 

KEY? DUP IF KEY 2DR0P 
BEEP KEY 13 = THEN ; 
— meh 

Category 3, Topic 1 Message 7 

Sun Jan 17, 1988 LMORGENSTERN 

[leonard] 

To M.HAWLEY and Scott Squires: I 
sympathize with anyone who has run into 
the problem of trying to load a utility and 
finding undefined words in it. There is no 
other name for it than bad documentation. 
Sometimes it is due to laziness or sloppi- 
ness, but more often, I think, it is inexperi- 
ence. Forth makes it possible for green 
programmers to do very clever and useful 
things. Not knowing better, they assume 
that others can use their source code. (There 
wasn't any difficulty with BASIC, was 
there?) If this is so, new and better stan- 
dards, although much needed in other 
ways, will not solve this problem; we al- 
ready have the resources for it. 

There are two solutions, at least one of 
which should always be applied by the 
programmer who submits a file: One is to 
meticulously compare the words in his/her 
source with the prelude. The other solution 
is to load the prelude and application on top 
of some widely available version of Forth, 
such as F83 or even fig-FORTH. If it loads 
and runs without flaw, an experienced 
programmer will know how to modify it to 
run on another system. 

Journals, such as Forth Dimensions, 
always check this sort of thing before pub- 
lication. However, we don't have the re- 
sources for that kind of thing on a bulletin 
board like this one, and have to trust those 
who submit files. Unfortunately, it is a 
matter of Let the User Beware! 

Category 3, Topic 1 Message 10 
Tue Jan 19, 1988 J.SHIFRIN 

Leonard, I'm afraid you're incorrect 
about journals like Forth Dimensions 
checking to make sure that all published 
code was standard. In fact, that was one of 
my greatest frustrations in getting started 
with Forth. FD seems to publish about any 
dialect (fig-FORTH, Forth-79, Forth-83, 
special implementations) without regard 
for portability. It typically includes a fair 
amount of CODE definitions as well. Per- 
sonally, I gave up on getting useful code 
from FD, other than ideas and approaches. 



Category 3, Topic 1 Message 12 
Tue Jan 19, 1988 JAX [Jack Woehr] 

In defense of Forth Dimensions: Actu- 
ally, the assumption there is that you have 
every issue from way back when, where 
these "nonstandard" words like RECURS E 
were first mentioned. It's just added moti- 
vation to buy bound volumes. 

Category 3, Topic 1 Message 13 
Wed Jan 20, 1988 J.W.BAXTER 

As another defense of Forth Dimen- 
sions, they do mark each listing as to what 
sort of Forth it is. If they made some arbi- 
trary choice (all submissions must be Forth- 
83, for example), they would have even 
fewer submissions to choose from. I think 
they're on the right track. —John 

Category 3, Topic 1 Message 23 

Mon Jan 25, 1988 LMORGENSTERN 

To M.HAWLEY: To write pixels in 
Forth, you have to access the DOS video 
driver or use the ANSI system. The exact 
call depends on your system. In MS-DOS 
you would use a call to interrupt lOH. There 
is a file 660 VIDEO.ARC that is described 
as "Video words for IBM F83." Look into 
it It would be appreciated if you would let 
us know whether it does what you want. — 
Leonard. 

Category 3, Topic 1 Message 25 
Fri Jan 29, 1988 M.HAWLEY 

Well, VIDEO.ARC looks promising. I 
unarced it with UNARC.F83, a good ex- 
ample of a useful application that runs using 
only standard words (and F83 in particular). 
The unarced file is VIDEO.BLK, which 
looks similar to the VIDEO.BLK file from 
VIDEOF83. ARC. Unfortunately, it did not 
load completely. It hangs on the word S LL, 
which I don't find in the standard. At first I 
thought it was an assembler word, but it is 
not in a code definition. So, frustration 
again. 

I'm just an amateur programmer who 
wants to learn Forth for the sheer fun of it. 
I am persuaded that Forth is the most versa- 
tile and, in some sense, the most powerful of 
languages — potentially. But I am still sing- 
ing the Forth-Beginner's Blues. 

To: M.HAWLEY 

I downloaded VIDEO.ARC and found 
your problem line, which is line 13 of 
screen 2. It reads: 
: pg>bh 
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wise CPU/16 

The stack-oriented "Writeable Instruction Set 
Computer" (WlSC) is a new way ol harmonizing the 
hardware and the application program with the 
opcode's semantic content. Vastly improved 
throughput is the result. 

Assembled and tested WISC for 

IBM PC/AT/XT $1500 

Wirewrap Kit WISC lor IBM PC/AT/XT $ 900 

WISC CPU/16 manual $ 50 

MVP-FORTH 

Stable - Transportable - Public Domain - Tools 
You need two primary features in a software 
development package. . . a stable operating system 
and the ability to move programs easily and quickly 
to a variety of computers. MVP-FORTH gives you 
both these features and many extras. 
MVP Books - A Series 

□ \tol. 1, All about FORTH. Glossary 

□ Vol. 2, MVP-FORTH Source Code. 

□ yo\.3, Floating Point and Math 

□ W. A, Expert System 

□ Vol. 5, File Management System 

□ \M. 6, Expert Tutorial 

□ W.7, FORTH GUIDE 

□ MVP-FORTH mos 

□ Vol. 9, Mbrk/Kalc Manual 

MVP-FORTH SoHware - A trans- 
portable FORTH 

□ MVP-FORTH Prograimner's Kit including 
disk, documentation. Volumes 1 , 2 & 7 of MVP 
Series, FORTH Applications, and Starting 
FORTH, IBM, Apple, Amiga, CP/M, MS-DOS, 
PDP-1 1 and others. Specify. $195 

□ MVP-FORTH Enhancement Package 
for IBM Programmer's Kit. Includes full screen 
editor & MS-DOS file interface. $110 

□ MVP-FORTH Floating Point and Matli 

□ IBM, □ Apple, or □ CP/M, 8' $75 

□ MVP-LIBFORTH for IBM. Four disks of 
enhancements. $25 

□ MVP-FORTH Screen editor for IBM. $15 

□ MVP-FORTH Graphics Extension for 

□ IBM or □ Apple $80 

□ MVP-FORTH PADS (Prolessional 
Application Development System) 

An integrated system for customizing your 
FORTH programs and applications. PADS is a 
true professional development system. Specify 
Computer: □ IBM □ Apple $500 

□ MVP-FORTH Floating Point Math $100 

□ MVP-FORTH Graphics Extension $80 

□ MVP-FORTH EXPERT-2 System 

for learning and developing knowledge based 
programs. Specify □ Apple, □ IBM, or 

□ CP/M 8". $100 

Order Numbers: 
800-321-4103 

(In California) 415-961-4103 

FREE 
CATALOG 
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For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth-83 Standard compilers 
for microcomputers 



For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 

For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

• No license fee or royalty for compiled applications 

For Speed: CForth Application Compiler 

• Translates "high-level" Forth into in-line, optimized 
machine code 

• Can generate ROMable code 

Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write for detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 



Mi 



Laboratory Microsystems Incorporated 

Post Office Box 10430, IVlarina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London. 01-248 0962 
France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 
Japan: Southern Pacific Ltd., Yokotiama. 045-314.9514 
Australia: V\/ave-onic Associates, Wilson, W.A,, (09) 451-2946 



page# @ 8 sll ; (s--bx ) 

You are right that SLL is not in the 
standard — it is not even in F83. 1 have 
worked out what it does, illustrating the 
value of well-chosen word names and 
good documentation. We start with the 
stack diagram, contained within the "stack 
parentheses," preferred by some program- 
mers over ordinary parentheses. The dia- 
gram says that PG>BH leaves BX on the 
stack. In Intel 8086/88 assembler, BX is the 
whole B register, and bh is its high-order 
part. Now, the documentation for certain 
lOH interrupts requires that BH contain the 
page number. 

Next, we look at the word name 
PG>BH. Clearly, it puts the video page 
number into BH. It is now a short step to 
recognizing that SLL shifts BX left by 8 
bits, discarding whatever is pushed off the 
high end, and filling the low end with zero 
bits. 

Now comes the "Aha!" SLL is "Shift 
Left Logical," easy enough to write in F83 
assembler. Continuing, I find that some 
additional words need definition: 

#SPLIT (n--hilo) 

Split a word into two bytes. Note: Most 

Forths have the stack diagram ( n - - lo hi) 

#JOIN (hilo--n) 

Opposite of #SPLIT. Same comments as 

for #SPLIT. 

ce L ( seg ofs - - b ) "Long C-fetch." 
Similar to C@, but the stack specifies a 
segment and offset. Most Forths use ( ofs 
seg - - b). 

C ! L ( b seg ofs - - ) "Long C-store." 
Same comments as for C@L. 

CMC VE L ( ofs 1 seg 1 ofs2 seg2 n - - ) "Long 

CMOVE" 

Move data from one segment to another. 
Same comments. 

I have written a prelude named 
F83PRELU.BLK, and have combined it 
with VIDEO.BLK and this note, into a new 
VIDEO. ARC file. If the sysops accept it, it 
will replace the previous VIDEO.ARC. I 
will upload it to you personally, so you will 
have it regardless. 

The problems you are having are uni- 
(Continued on page 14.) 
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S 1000 BEWBUI 

for the World's Fastest Programmer. 

Be the first to put our mystery gizmo through its paces and 
win $1000! Use any computer, any software. The showdown is 
at the Real-Time Programming Convention, Nov 18-1 9th, 
Anaheim, CaHf. For complete rules, write: 
Programming Contest, Forth Interest Group, PO Box 8231, 
San Jose, CA 95155. 
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Guide to "ANSI X3J14 Forth Technical Proposal 



X3J14 is an American National Standards Institute (ANSI) Technical Committee developing a standard 
for the Forth programming language. 

We want your input. Please read this to learn more about the standards effort and how to get your 
comments to the committee. 

X3 is the part of ANSI that deals with Information Processing Systems. J 14 is a Technical Committee 
sanctioned by X3 to develop a standard for Forth. Our charter is to recommend a "draft proposed 
American National Standard" (dpANS) to X3. X3 in turn will recommend the dpANS to ANSI. If, based 
on public review, the dpANS meets ANSI requirements for technical accuracy and consensus support the 
dpANS will become the American National Standard Forth. 

Our goal is to complete the dpANS by November 1988. While that dale may sound far awav. vour input is 
needed now. 

We have adopted sections 1-16 of the FORTH-83 standard as a starting point for the dpANS. Please use 
it as a reference point for your comments. We ask that you keep these guidelines in mind: 

1. The standard is to be evolutionary - not revolutionary. First and foremost, X3J14 is intent on 
codifying odsting common practice (words like DUP, SWAP, DROP). We are also working to 
resolve conflicts when more than one common practice exists. Finally, we are considering areas not 
currently covered by standards, like floating point. Wc arejiot going to restructure Forth. 

2. Be constructive. If you don't like a facet of FORTH-83, please propose something better. 

3. Proposals must be typewritten. You need not use the standard form, but please provide the same 
information in the same general layout. Detailed instructions are provided below. If possible, in 
addition to a paper copy of your proposal, please send a copy on diskette. Straight ASCII text file, 
MS-DOS or Macintosh format, 3.5" or 5.25" diskette. 

4. Send proposals to the address shown on the proposal form. Please enclose a self-addressed, stamped 



envelope. 



Additional information on ANSI, the standards process, and X3J14 is available from 



X3 Secretariat/CBEMA 
311 First Street, NW 
Suite 500 

Washington, DC 20001-2178 



Documents of interest: 

X3/SD-0 Information Brochure 
X3/SD-2 Organization and Procedures 
X3/SD-5 Standards Criteria 



X3J 14/87-005 Proposal for ANS Forth 
X3J14/87-002 Draft Scope of Work 
X3J 14/87-003 Draft Plan of Work 



X3J 14/87-021 



12/04/87 
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Filling out the "ANSI X3J14 Forth Technical Proposal" form 



Page: 
Title: 

Related Proposals: 



Proposal ( ) 
Comment ( ) 

Keyword (s): 



Forth word(s): 



Abstract: 



Proposal: 



Discussion: 



Submitted by: 



Please number each page of your proposal. 

A short phrase that characterizes your proposal. Example: String extensions. 

If you have submitted other proposals on this subject, please list their titles and 
dates. 

Are you proposing a specific change? Then check the Proposal box. 
Otherwise, check the comment box. 

Pick a keyword that helps others understand what area of Forth your proposal 
addresses. For example: Kernel, double integers, system word set... 

List all affected Forth words, including ones added or deleted by your proposal 
or discussed in your comments. 

Briefly convey the nature of your proposal (or comment) in broad terms. 

State your proposal in specific terms. When proposing a new word, or changes 
to an existing word, simply state the new definition. Include a stack picture if 
appropriate. 

If you are making a comment, put it here. If you are submitting a proposal, 
provide compelling arguments in favor of your proposal. Be concise. If you are 
aware of arguments against your proposal, state them and rebut them. Is your 
proposal consistent with current Forth conventions? Does the proposal involve 
hardware or other system depcndancies? Does it affect application portability? 
Does it have implications for multi-user environments? Should the proposed 
change be mandatory? Does it affect ROMabiliiy? Is it general purpose? How 
does it affect execution speed? How does it affect compilation speed? What are 
its memory' requirements? 

Provide your name, address, and daytime phone number. 



Use the 'ANSI X3J14 Technical Proposal Form, cont'd" form if additional pages are needed. Remember 
to put page numbers and repeat the "Submitted by" and "Dale" fields on each page. 
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ANSI X3J14 Forth StarKJards Committee 
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